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CHAPTER 1 
INTRODUCTION 


Under government contract DA-49-129-ENG-542, Arthur D. Little, Inc., 
developed a digital computer program which was capable of simulating 
the performances of the electrical components involved in the power 
plants of anti-ballistic missile (ABM) s When subjected to various 
disturbances, the ABM power plant components must meet very high performance 
standards; consequently, to accurately simulate the power plant, computer 
models not ordinarily used in the design and analysis of power plants 
were developed for some of the various components. Since the original 
computer program was developed, the design of the power plant has been 
changed requiring modification of the computer program. This work 
discusses the modification of the computer program, instructions for 
using the program, and use of the program in simulating a given power 
plant configuration. 

In order to reduce the repetition of information, and for the sake 
of brevity, all symbols used in this paper are defined in Appendix À. 
The reader will find it helpful to scan the appendices prior to 
reading the text of this paper in order to get a general idea of the 


information contained therein. 





CHAPTER 2 


DESCRIPTION OF THE POWER PLANT 


The computer program has been modified to be capable of simulating 
an electric power plant which consists of the foilowing: 6 generators; 
9 motor generator (MG) sets, the motors of which are synchronous motors; 
4 induction motors which are started directly from the main bus; 16 distri- 
bution transformers; a commercial power source which supplies power to 
the power plant from a distant point through a transmission line and a 
commercial power interconnection transformer; and a passive RL load 
connected to the main bus. The MG sets supply RL loads either individually 
or in parallel pairs. Three of the MG sets are capable of supplying high 
voltage power supplies which are represented as RL loads. Figure l is a 
one-line schematic diagram of the power plant. 

All of the synchronous and induction machines, transformers, and 
RL loads are three-phase components, and are all balanced except for the 
RL load connected directly to the main bus which may be either balanced 
or unbalanced. #11 IL loads are Y-connected with the neutral grounded. 
The stators of the synchronous machines and induction motors are Y- 
connected with the neutral solidly grounded for induction motors, and 
either solidly grounded or through a reactance for synchronous machines. 
Ihe commercial power source is Y-connected with the neutral grounded. 
The primary windings of the distribution transformers and of the commercial 
power interconnection transformer are A-connected while the secondary 


windings are Y-connected with the neutral grounded. 
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Figure l]. Schematic Diagram of Power Plant 





CHAPTER 3 


MODELS USED TO REPRESENT THE INDIVIDUAL COMPONENTS OF THE 
POWER PLANT 


3.1 Synchronous Machines 


Figures 2 and 3 depict the models that are utilized in the computer 
program to represent synchronous machines in the direct and quadrature 
axis. The models take into consideration the fact that the three windings 
(abc) of a synchronous machine have been transformed by the DQO 
transformation to three DQO SES Whereas, the real abc stator 
windings rotate with respect to the rotor, the fictitious DQO windings 
are stationary with respect to the rotor. The model contains 14 


M M ‚ШОМ 


parameters — 10 inductances Г LEN аа” ur ү? 


ES га” Та? 


and L and 4 resistances R , R., R,, and R . 
q a f d q 
Synchronous machines are usually described analytically in terms 


of standard conventional parameters which are 11 inductances L L 


D? 0” 
f. წ " . 
= НО? Lei» dl? нэ Lე қ L, : Lo , and Ly and 6 time constants 


t " " ! " " ° 
То» Tio’ Шер Teo? Tas? and II. The equations which relate the 


conventional parameters to the parameters of the model are 


L L 


L. - L 
sa 3 
L. + L. + L 
.D Q9 0 
L. 3 (3.2) 
L -L 
_ a 0 
M b d 2 (3.3) 
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о qo 


M .L,.M 


ds 


(5-1) 


(3.6) 


(2.7) 


(3.8) 


(5.9) 


(3.10) 


Sell) 


(3:12) 


(3:13) 


(3.14) 


In order to obtain C and AS? the open-circuit saturation curve 


must be utilized. On the open-circuit saturation curve, determine 


the current i, where saturation just begins; then using this current, 


Ї 





obtain \ from 


A. SLI (3.15) 


Next, choose a point such that the corresponding voltage lies above the 
saturation point of the curve. The difference between the field 


current, i_, required to give this voltage utilizing the open-circuit 


f 
saturation curve and the current required using the air-gap line is 


> Therefore, 


A, = Le. - i) (3.16) 


e, (3:17)‏ ي د 
Oc „...‏ 


In summary, the parameters of the model can be determined 
uniquely from the specification of (a) the conventional parameters 


წ წ წ " " " "1 . 
Lp» Lo: Lo» Lp» Low Ly : Ly $ Lo : T 10? or Tas? and > or Тав? 


(b) the open-circuit saturation characteristics of the machine; 
(c) the stator resistance К. and the field resistance Цэн and (d) 


Meg which may be specified arbitrarily. 


3.2 Induction Motors 


The induction motor is represented by a 5 abca8 winding model which 


contains 6 parameters — 4 inductances L , Г, M,, and M_ and 2 
a ab aq 


თ 
resistances К, апа Rote The model parameters can be determined from 
conventional parameters which are usually defined in terms of a transformer 


equivalent circuit such as is shown in Figure 4. The transformer equivalent 


circuit in Figure 4 is for a 5 арса winding model, whereas standard 
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10 
conventional parameters are defined by a 6 abca'b'c' winding transformer 


equivalent circuit. The conventional parameters given by the 6 winding 


transformer equivalent circuit are Х тр» ; R , and Кат. Using 


X t> 
aa’ aa’ a 


the standard conventional parameter plus Lo» the model parameters can 
be determined using the following equations: 


(.66)X , 
Du (3.18) 


aa 0) 





Т Е X I" + (1.5)М y EE Lo (3 19) 
ab 3 ` 

2 

L, = EU ЕЕ (1.5)M, „ ша M y (3.20) 
E 

L Zn +(1.5)M, „ı (3:21) 
V3 

м = | м. (3.22) 


The total moment of inertia of the motor and its mechanical load and 
the number of pole-pairs of the induction motor are also needed for 
the computer program to completely simulate the induction motor. 


33 Regulator-Exciter System for Synchronous Alternators and Synchronous 


Motors 


Only a brief description of the regulator and exciter system used 
for synchronous alternators and synchronous motors will be presented 
here. The purpose of this section is to sufficiently familiarize the 
user of the computer program with the regulator-exciter system so that 


the parameters needed for the program can be determined. 
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The model for the regulator-exciter system of synchronous alternators 
is shown in Figure 5. The model represents a system with conventional 
regulating features and a saturable current potential transformer 
(SCPT) exciter. The exciter is represented in the model by a current 
source Les with a source resistance Ra The current ier is determined 
using the instantaneous terminal phase voltages Ул» Ур» апа Vos and 
stator currents i і,» апа і, of the alternator. The source resistance 
R, represents the magnetizing impedance of the exciter transformers, and 
the saturation of these transformers is accounted for in the model by 
means of a simple limiter. 

The voltage regulator is represented in the model by an amplifier, 
a feedback network, and a limiter. The amplifier is defined by its 
gain k3, time delay t4 and output voltage ez which is limited by Ez. 
The feedback network has a time constant of ty, and a time delay tí. 

The terminal-voltage feedback and reactive-load share control 
features df the model are accounted for by a three-phase, full-wave 
rectifier and a quadratic filter with gain k; and time constants t»; 
and tj. 

To accurately model the system, the parameters needed are E 


ШЕ Es, Кз, t3, ty, ty, E 


m | ref? К», tj, t2, and kj. All of these 


parameters are not usually specified by the manufacturer; therefore, 
the following method is a suggested way to determine all of the 
parameters. 

Ез апа E should be at least 3 to 4 times the field voltage 
required for open circuit terminal voltage. R, should be 20 to 30 times 
the field resistance. kı should be chosen so that for a reactive-current 


error equal to the rated current it produces a 5 percent rated voltage 
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13 
feedback. Once a convenient value for RN is determined and recovery 
time for a step load change, T, , has been specified, the remaining 


parameters can be obtained from the following equations: 





tà 5 2/2) T. (3.23) 
‚2 
წ 5 
t? бы 256 (3.24) 
сг Оч: (3.25) 
(т)Е 
c — (3227) 
LA 
2005 
tos = (at full load) (3.28) 
R. 72 
Ё 
L 
coris 
Er = R. (at no load) (3.29) 
За 
Кз > (10) rm (3.30) 
k> wM tá 
„с аш N 
tu = 777 ° (3.31) 
ef 


The exciter of a synchronous motor is represented by the model in 


Figure 6. The model consists of a voltage excitation source e |, 


ex 


a field discharge resistance R d° two silicon controlled rectifiers 


Е 


SCR1 and SCR2, and a diode Dl. The parameters Af, k, and Reg must be 


specified. k is related to წ. through the equation 


eme kV à : (53:32) 
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3.4 Distribution Transformers 


Ihe model used for the distribution transformers is given in Figure 7. 
As has been previously stated, the primary windings of the transformers 
are A-connected, and the secondary windings are Y-connected with the 
neutral –” The transformers are represented as ideal transformers 
with a turns ratio, a, equal Ээ that of the actual transformer, plus an 
equivalent leakage-inductance, 272) in series with an equivalent winding 


resistance, R per phase. The model does not take into account 


ед2” 
saturation and magnetizing impedance effects. Each phase of the load 
is represented by a resistance, К, in series with an inductance, ы. 
All phases of the load are the same. 

The only parameters needed for the model are 2-1 ი. and a for 
the transformer, and R. and L. for the load. Each of these parameters 


can be easily calculated from either the name plate data of the transformer 


or from readily available load characteristics. 


3.5 Commercial Power System 


The commercial power system is represented by the model shown in 
Figure 8. The model represents the following: (1) a three-phase commercial 


power source with peak phase voltage E, and the phase angle of phase a 


U 


being equal to x, and the source impedance per phase consisting of an 


inductance, L in series with a resistance, m (2) a three-phase 


ЇЇ? 


transmission line which is assumed to be balanced and is represented 


per line by an inductance, L in series with a resistance, Вт; and 


T? 


(3) a commercial power interconnection transformer which is identical 


to the model for distribution transformers in Section 3.4. 
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18 
The parameters needed for the program to be able to represent the 


model are L 51 апа а for the interconnection transformer; 


ед2? 


L and Кто for the overhead transmission line; and Ip» Ryo? and E 


12 02 


for the power source. => Вто, уэ» Ryo and Eno are equal to Lp» Вт, 

L Ry» and Ey divided by 25 and a respectively. All of these parameters 
are readily available from published data. In addition to the above 
parameters, the value of x must also be inserted in the program, and 


the method of determining its value is described in Section 5.5. 
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СНАРТЕК 4 


DESCRIPTION OF THE COMPUTER PROGRAM INCLUDING À SUMMARY 
OF THE CAPABILITIES OF THE PROGRAM 


4.1 Design of the Computer Program 


Generally a power plant is divided into two subsystems. One 
subsystem consists ofthe prime movers of the generating units and their 
fuel supplies. The second subsystem contains either the rest of the 
power plant or the portion which contains the electrical components. 
The computer program which represents the prime movers and their 
fuel supplies will be called the MAIN program. The computer program 
which represents the rest of the power plant will be called the SUB2 
program. In order to run the SUB2 program, a MAIN program is required. 
The MAIN program has two principal functions — (1) it serves as the 
main routine of the overall power plant, and (2) it contains the model 
for the prime movers of the generating units and their fuel supplies. 

The SUB2 program is simply a large subroutine of the MAIN 
program. It cannot be emphasized enough that the MAIN and SUB2 
programs are completely independent. The two programs are linked 
by the following FORTRAN call statement from the MAIN program; 

CALL SUB2 (XA, SP, TOR, XLOAD, FR, NS). ХА represents time (in 
seconds), and SP is a one-dimensional array which contains the 
mechanical speeds (in rad/sec) of the shafts of the generating 

units. Arrays TOR and XLOAD are one-dimensional arrays that contain 
the electromagnetic torques (in ft-lb) and the electrical loads (in kW) 


of the generators of the generating units. FR is the electrical 
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frequency of the main bus (in Hz), and NS is the number of generating 
units that remain connected to the main bus at a given instant of time. 

The two programs work in the following prescribed manner. When 
the MAIN program calls SUB2, SP and XA are transferred from MAIN to 
5082. XA should be greater than or equal to SUB2 time X. IF XA is 
larger than X, SUB2 integrates the differential equations of all the 
components of SUB2 to time XA using the same speeds SP for the shafts 
of the generating units throughout the integration. At the end of this 
integration, SUB2 computes TOR, XLOAD, FR and NS and returns to the 
MAIN program. The values of TOR, XLOAD, FR and NS transferred to 
the MAIN program can be used to integrate, in the MAIN program, the 
differential equations of the prime mover and the fuel control model 
to a later time XA. Once the integration is completed a new SP and a 
new time XA can be calculated and the procedure repeated. 

It is very important to realize that any MAIN program which is 
compatible (has similar logic structure) with SUB2 may be used. Two 
very simple MAIN programs have been included in Appendix C with the 
SUB2 program. One of them, SPEED, uses constant speed models for the 
prime movers, and the other one, TORQUE, uses constant developed torque models 
for the prime movers. Again, both of these MAIN programs are very simple. 
An actual simulation of a given power plant configuration would require 


a much more complex model. 


„2 Description of the SUB2 Program 


The SUB2 program is based on the models described in Chapter 3. 
The program is coded in FORTRAN IV. As was mentioned previously, the 


program for SUB2 is, so to speak, a subroutine of the MAIN program. 
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In itself, the SUB2 program consists of 50 subroutines. As can be seen 
Бу glancing through Appendix C, the first few lines of each subroutine 
are used to describe the function the subroutine performs. Let it 
suffice to say that each subroutine performs a special function in the 
computer simulation, and all the subroutines combine to form the SUB2 program 
which simulates the whole electrical power plant. 

Used in the SUB2 program are several subscripted FORTRAN arrays. 
Ihese arrays are in common to all of the subroutines with the exception 
of subroutines SETF and SETI which have no common. The arrays contain 
the parameters and variables of the various 
components as well as other variables used by 
the computer program. Parameters of different components are sometimes 
placed in the same array. When this is done, various parts of an array 
are assigned to the various components. For example, in a two-dimensional 
array a given component is assigned to a given column. The various parts 
are assigned using the following ordered arrangement: (1) all generators 
of generating units, (2) all MG sets, (3) all induction motors, (4) all 
distribution transformers, and (5) commercial power system. Throughout 
the rest of the paper the above ordered arrangement will be referred to 
many times. 

The arrays used in the SUB2 program are the following:  A(80,35), 
E699: 35), B0O(8) ,CD(3,4) , D(120) ,EG(50) ,EP(50) , F(316),G(21,35) , GB(3,4,9) , 
EE. VV(21,9),W(6,6,9), X, XL(6,10, 35), XM(6,10, 905 Y (316) 52(6,6,35) ,L (134), 
25150), LG2(50),LG3(50) , LP1(50) , LP2(50) ,LP3(50) , TITLE(39) ,HEAD(39). 

Ihe dimension of most of the arrays is determined by the maximum 
number of components in the power plant to be considered. The arrays 


above require 13,271 computer memory locations. These arrays have been 
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tailored to accommodate the power plant in Figure 1. The second subscript 
of all the two-dimensional arrays, except CD(3,4), and the third subscript 
of all three-dimensional arrays correspond to the position of the respective 
component inthe ordered component arrangement. The elements of the 
more important arrays are defined in Appendix B. In Appendix B the 
subscript I corresponds to the position of a component in the ordered 
arrangement of components; whereas, the subscript J specifies the first 
entry in the Y array of the dependent variables of a component. 

In addition to the information given in Appendix B, array Y contains 
all the dependent variables of the components; and, array F contains 


the corresponding first-time derivative of the dependent variables. 


4,3 Capabilities of the Computer Program 


The computer program is quite versatile. Providing the models 
given represent the components to be simulated, the only restrictions 
on the components used in the simulation are as follows: 

(1) There must always be an RL load on the main bus; 

(2) The total number of generating units, MG sets, induc- 

tion motors, and distribution transformers does not 
exceed 35; 
(3) The number of generating units does not exceed 6; 


(4) The number of MG sets does not exceed 9; 


(5) The number of induction motors does not exceed 4; 
and 


(6) Each simulation has at least one power source. 
Any power plant with a lesser number of components than specified above 
may be simulated. 

The computer program has many capabilities. Any generating unit, 


MG set, induction motor or distribution transformer, as well as the 
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commercial power system, can be disconnected from the main bus at a specified 
time; however, once a component is disconnected, it must remain disconnected 
for the remainder of the simulation. Two MG sets may feed the same load in 
parallel as shown in Figure 1. When one of these generators is disconnected 
from the common bus, the disconnected MG set idles at no load. All the 
RL loads in Figure l can be varied in two ways. Step changes of a 
specified magnitude can occur at any time, or the RL loads can be varied 
sinusoidally with specified frequencies and amplitudes. 

Single-phase, two-phase, three-phase, and line-to-line faults can 
be introduced on the main bus, the buses of MG sets, the secondaries of 
distribution transformers, and anywhere on the overhead transmission line. 
The faults can be of any duration. The program can also simulate step 
changes of a given magnitude as well as pulse changes of a specified 
magnitude and duration in the voltage of the commercial power source. 

Any of the power plant disturbances given above can occur simultaneously 
during a simulation with the stipulation that only one component can be 
disconnected at a time. 

In addition to the versatility of the program shown above, the 
computer program calculates the instantaneous values of phase voltages 
and line-to-line voltages of the main bus, buses of each MG set, and 
the secondaries of each distribution transformer. The computer program 
calculates the average three-phase power and the peak reactive power 
per phase at the terminals of each rotating machine connected to the 
main bus, the primary and secondary terminals of the commercial power 
interconnection transformer, and the terminals of each generator of the 


MG sets. Finally, the computer program calculates the percent error 
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of the peaks of all the line-to-line voltages and the percent error of 
the frequencies with respect to 60 Hz. Needless to say, all of the 


mentioned variables are available for printing or plotting as desired. 
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CHAPTER 5 


OPERATING INSTRUCTIONS FOR THE COMPUTER PROGRAM 


5.1 Computer Facilities Required 


The program is coded using FORTRAN IV; consequently, the program 
can be run on any computer which utilizes FORTRAN IV and has sufficient 
core memory available. The program has been successfully run on both the 
IBM 360 and CDC 6600 systems. Allowing for the common arrays of SUB2 
already described in Section 4.2, the coding of the program for SUB2 
listed in Appendix C, along with either the main SPEED or main TORQUE 
program requires about 32,768 (decimal) units of computer memory. 

In addition to the standard input tape 5 and output tape 6 used by 
all FORTRAN programs, the SUB2 program requires additional tapes 2 and 
7. This is an important consideration in the preparation of 
the control cards for the program. Tape 2 is utilized by 
subroutine PLOT2 as extra memory where information can be stored in 
binary form. The information stored in tape 7 is identical to the 
information printed out by tape 6; consequently, the information stored 


in tape 7 can be saved and plotted out at a later time. 


5.2 Input Information Required 


Regardless of the simulation, the following parameters and variables 
are required for all computer simulations: The initial time X, С(1) 
to C(15), L(1) to L(7), and L(9) to L(10). Depending on what components 
are present during a given simulation, the following parameters and 


variables must be specified 
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(1) Generators of generating units — A(1,I) to A(17,1), A(20,1) 
to A(33,1), B(14,1), L(1+99), Y(J) to Y(J+10), and F(J+8); 


(2) MG sets ~ A(1,I) to A(17,I), A(20,I) to A(26,I1), A(31,I1) to 
А(46,1), А(49,Г) to A(61,I), A(68,I) to A(80,I), B(42,1), 
L(I+99), Y(J) to Y(J+18), and F(J+16); 


(3) Induction motors — A(1,I) to A(10,I), A(11,I) to (depending 
on the value of A(10,I)), L(I+99), and Y(J) to Y(J+6); 


(4) Distribution transformers — A(1,I) to A(12,I), L(I+99), and 
სა”) сац? 


(5) Commercial power system — C(35) to C(48), L(8), and Y(J) to 
Y(J+2). 


One of the iterms required, C(1), is the integrating time step. In 
the absence of induction motors from the simulation, an integrating step 
of 1 millisecond should be sufficient. However, due to the fact that 
induction motors operating at or near full load have very small time 
constants, the integrating step should probably be reduced to about one- 


third of a millisecond when induction motors are involved in a simulation. 


5.3 Input Format 


The MAIN program requires input information which is described in 
Section 5.6. The data for SUB2 must be placed directly after the data 
for the MAIN program. When the word deck is referred to in this 
section, it refers to the data deck for SUB2. 

The first three cards of the deck contain the information for the 
common array TITLE. This information 15 contained in format 13A6 and 
is a verbal description of the simulation. The description is printed 
out at the beginning of the output. The next three cards of the deck 
contain the information for the common array HEAD. The information 
HEAD is also a verbal description contained in format 13A6. HEAD 


provides a method for explaining the information contained per record 
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in the outputs of subroutine TAPE2. The verbal description in HEAD 
appears in the outputs produced by TAPE2 right after TITLE. 

Following the first 6 cards of the deck are cards which can be 
of three general categories. Each category is characterized by one 
of the three letters I, P, or G which is punched in the first column of 
the card. The I-cards contain the input information of Section 5.2 
which goes into the common arrays X, Y, F, L, C, D. À, and B. The 
P-cards contain instructions for the output subroutine PRINT2. The 
G-cards contain instructions for subroutine PLOT2. The I-, P-, and 
G-cards can appear in any order in the data deck; however, the P- and 
G-cards are executed by PRINT2 and PLOT2 in the order they appear. The 
most logical order would be to group the P-cards and G-cards into 
separate groups and to place them in the data deck in that order. 

Let us first consider the I-cards. The format for the I-cards can 
be either for the one-dimensional arrays X, Y, F, L, C, and D, or for 
the two-dimensional arrays À and B. For the one-dimensional arrays, the 
format of an I-card is А1,1Х,А1,13,1Х,13,6Е10.4. The first alphanumerical 
character of an I-card is I. The second alphanumerical character 
identifies the array whose values are contained on the card. The 
two integers contained on the card specify the lower and upper values 
of the subscript of the array whose values are contained on the card. 
Ihe values of the array follow the second integer. For example, consider 
an I-card which has the second alphanumerical character equal to C and the 
first and second integers are l and 6; then, the card contains the values 
БЕ С(1) through C(6). 

The format of an I-card for the two-dimensional array A or B is 
A1,1X,A41,12,12,1X,12,6E10.4. The first integer specifies the value 


of the second subscript of the array A or B. The second and third 
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integersspecify the lower and upper values of the first subscript of 
the array À or B whose values are contained on the card. The alpha- 
numerical characters have the same significance as before. Consider the 
example in which the three integers are 7, 10, and 15, and the 
second alphanumerical character is A; then, the I-card contains the 
values for A(10,7) through A(15,7). 

The P-cards contain the information which tells subroutine PRINT2 
the values of the common arrays to be printed out. For the one-dimensional 
arrays, the format of the P-cards is A1,1X,A1,13,1X,I3. For the two- 
dimensional arrays, the format is A1,1X,A1,12,12,1X,12. The meaning 
of the information punched on the P-card is similar to that punched 
on the first 10 columns of the I-card. For example, consider the P- 
card that has the two alphanumerical characters P and B and the three 
integers 3, 5, and 22; then, the values of B(5,3) through B(22,3) will 
be printed out by subroutine PRINT2. 

The G-cards perform the same function for subroutine PLOT2 that the 
P-cards perform for subroutine PRINT2; the format is exactly the 
same as that of the P-cards. 

The last card of the data deck must be a card with the letter R 
in the first colum and the rest of the colums blank. This card 
informs the program that all the data cards have been read in. It is 
important to remember, as stated earlier, that in addition to the data deck, 
described in detail above,the data deck for the MAIN program must precede 
IC. 

Any number of I-cards may be used to insert the input data into the 
program. Due to the size of the arrays ЕР, ІРІ, LP2, LP3, EG, LGl, 


LG2, and LG3, which contain instructions for subroutines PRINT2 and PLOT2, 
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only 50 P- or G-cards may be present for a given simulation. 


5.4 Output Available 


The parameters that the SUB2 program calculates were given in 
Section 4.3. All of these parameters calculated by the SUB2 program 
are stored in the common arrays and can be obtained as output by using the 
P- and G-cards. The exact location of a particular parameter can be 
determined by utilizing Appendix B. However, it is important to realize 
that subroutine PRINTO produces a printout at the end of each simulation 
which gives the values of the dependent variables and a few other 
variables of SUB2 that must be specified in the initial conditions of 
a simulation. For the initial simulation, approximate initial conditions 
can be calculated by the method described in the following section. 
By conducting a steady-state simulation and then obtaining the output 
from PRINTO, accurate initial conditions are available for subsequent 


simulations. 


5.5 Method of Obtaining Initial Conditions 


By conducting a steady-state simulation based on approximate initial 
conditions and then obtaining the output produced by PRINTO, as explained 
in the preceding section, accurate initial conditions are available for 
subsequent simulations. This section describes the method for obtaining the 
approximate initial conditions for the first run. The procedure below 
provides the initial conditions for all components connected to the 
main bus including generators of generating units, motors of MG sets, 
induction motors, distribution transformers, and the commercial power 


system. The generators of the MG sets are not described; however, the 
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initial conditions for these components can be obtained using the same 
method used for the generators of generating units. The various buses 
of the MG sets do not have to be in synchronism. 

The power plant 15 assumed to be balanced. Given the voltage of 
the main bus along with the power and power factor of a component, one 
can readily calculate the maximum amplitude, I, of the phase currents from 
the component to the main bus. Assuming time equal to zero is when the 
phase-a voltage of the main bus is maximum and abc phase sequence, the 


instantaneous phase currents are 


i = I cosq (წ... 
і = І соѕ(ф ЕЗІ (5:2) 
b 3 : 
TET (5.3) 

io - costó 3 . . 


This procedure provides values for the instantaneous phase currents 

of generators of generating units, motors of MG sets, induction motors, 
and the commercial power system. For the generator of a generating unit, 
d 


i, and a equal zero. The remaining parameters needed for the generator 


are calculated using the following procedure: 


(1) მ_ from 
1 წ + LX а + IR cos? 
„ რორი. 
2 En ІХ соѕф - IR sind (5.4) 
Q a 
where X, = w(L, = M p? (5-5) 
– и (5.6) 


88 2 sa 


%ე шоо у (5.7) 





(2) 


(3) 


(4) 


(5) 


(6) 


(7) 


(8) 


(9) 


Г = from 
5 


where 


Хе from 


I from 
s 


1. from 


E. from 


ez from 


Е ef from 


S 


3. = 
ІХ cos? + ІХ cos(20. ф) IR sing 


f 5 X .cosO 
af O 


(5.8) 


X „ = ШМ (5.9) 


= _ 3 
ს ი. І.) > М. гІсоз (9. + $) (5710) 
I = CO ~ ЇЕ (5.11) 
8 Б S š 
І, = І. + (I, - т.) (5:12) 
E. = L ER; (5.13) 
3 
ez = т ЕЎ, (5.14) 
аш = © ку 7 (501 06 (5.15) 
gee NEN LM f s ° 
(5.16) 


When steps (1) through (5) are used, the values of the dependent variables 
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їр» ia а and 8 of the motor of an MG set can be obtained. The value 
of the field excitation of the motor is provided by Equation (5.13). Using 


the equation 


ess КҮ, (5.217) 


the value of k can be calculated. The remaining dependent variable of the 
motor, ولا‎ is obtained by dividing the frequency of the main bus by the 
number of pole-pairs of the motor. 

For induction motors the remaining variables ig? іш 8 > апа a, 


are calculated as follows: 


(1) მ_ (by letting y = 0) from 


-1 у IX sinó T IR cosQ 
»* 897 t9^ | Tx cosó - IR sinp S 
a a 
(2) i equal 1' (since y = 0), where 
IX_cos$ - IR sing 
| mE 
Lr X cos® (5.19) 
ад 0 
(3) i, = O (since y = 0) (5.20) 
(4) s from 
Б! 
- _а 
з= cot(8. + $) (5:21) 
თ 
(5) Ш from 
(1 — s)ü 
ს” اا‎ (5:22) 


The electromagnetic torque of the motor must equal the mechanical 





23 


torque of the load of the motor which is given by the equation 
2 
nR, ы 


E AA 
mm => : (5.23) 


The dependent variables of the distribution transformer are the 


secondary currents í p? and i, which are given by the equations 


გ: 1 C 
E cos(s 2) (5.24) 
3 
i, p сов(ф -2 ) 05:25) 
ip = ვი. >). (5.26) 


УЗ 


The maximum amplitude of the secondary line-to-line voltages can be 
computed by using a phasor diagram and taking into consideration the 
leakage-reactance and winding resistance of the transformer. 

In addition to the values of the dependent variables of the 
commercial power system previously described, the values of the maximum 


amplitude, E 2? and of the phase angle, x, of the voltage source are 


U 
obtained from a phasor diagram which considers the various reactance 
and resistance drops of the interconnection transformer, transmission 
line, and power source. 

Às can be seen from this section, getting the initial values of 
the dependent variables and other required initial conditions is, to 
say the least, tedious; however, for a given power plant configuration, 


this only has to be done once. For subsequent simulations the values from 


a steady-state run can be used. 
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In arriving at Equations (5.1) through (5.25), the convention used 
for stator currents and for the polarity of terminal voltages is that 
shown in Figures 2 through 4. This situation necessitates that the 


range of q for alternators be from - I to 0 for leading power factors 


2 
and from O to р for lagging power factors. The range of $ for motors 
is Ёгош 5 Со т for leading power factors, and from T со Э" for lagging 


power factors. 


5.6 Input Information Required for Main SPEED and TORQUE Programs 


In order to run the SUB2 program, it has already been stated that 
a MAIN program is required. The data required for the MAIN program 
should be placed just before the data deck for SUB2 as stated in 
Section 5.3. A data card must be placed in front of the complete 
input data deck (both MAIN and SUB2 data decks) which has, in format 
I5, an integer which is equal to the number of simulations in one 
computer run. 

The included main SPEED program requires 2 data cards. The first 
card uses format 13A6 and contains a verbal description of the 
simulation. The second card contains in format 2E10.3 the duration of 
the simulation in seconds and the speed of the shafts of the generating 
units in rad/sec. 

The included main TORQUE program requires two cards plus a card 
for each generating unit. The first card contains a verbal description 
of the simulation in format 13A6. The second card contains the number 
of generating units, the integrating time steps, and the duration of 
the simulation in seconds in format 15, 2E10.4. The succeeding cards 


for each generating unit have a format of 3Е10.4 which contains the 
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initial value of the mechanical speed of the shaft of the generating 
unit in rad/sec, the developed mechanical torque of the shaft in ft-lb, 


and the total inertia of the shaft in lb-ft“. 
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CHAPTER 6 


COMPUTER PROGRAM MODIFICATION AND POWER PLANT SIMULATION 


6.1 Program Modification 


When the original program was developed, each subroutine was verified 
to operate properly when run by itself, but a complete power plant 
simulation utilizing the full SUB2 program was never attempted. Originally, 
the power plant to be simulated consisted of fewer components than that 
shown in Figure 1 and contained a duplex reactor which was to be used 
to drive the high voltage power supplies. In the modified program of 
Appendix C, a few statements referring to the duplex reactor remain, 
since removing them would have necessitated a larger amount of program 
reorganization and renumbering. These additional FORTRAN statements 
require very little additional computer space. 

In order to make the computer program compatible with the power 
plant of Figure 1, the following modifications were made: (1) The 
dimensions of the common arrays were lengthened; (2) the L array was 
reorganized and the corresponding FORTRAN statements in the various 
subroutines were changed to reflect the reorganization of the L array; 
and (3) a few minor programming errors were corrected. All of the 
FORTRAN statements which were changed have been noted by shifting the 
identification sequence numbers to the left 1 space. This should simplify 


future program changes due to subsequent power plant modifications. 


6.2 Development of a Complete Power Plant Simulation 


The final,full power plant simulation was the conclusion of 
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several small simulations. The first step consisted of a simulation 
consisting of the commercial power source supplying a RL load; the next 
simulation consisted of commercial power supplying a RL load and an MG 
set; then commercial power supplying a RL load,an MG set, and an induction 
motor; and, then commercial power supplying a RL load,an MG set, an 
induction motor, and a distribution transformer. This methodical approach 
allows each subroutine to be checked for proper operation before 
complicating the analysis by adding more components. Using this 
method, the minor programming errors were found. 

The next step was to repeat the above simulations, but to use 4 
diesel generators instead of the commercial power source. The reason for using 
4 diesel generators instead of lis that the 4 diesels will be used in 
several later simulations. 

After verifying that the basic system performed properly, using 
first a commercial power source and then 4 diesel generators, the 
rest of the components of Figure 1 were added. A simulation was made 
with each source of power — commercial power or 4 diesel generators — 
supplying the full power plant. This step was necessary in order 
to synchronize the commercial power source with the 4 diesel 
generators for parallel operation. After completing the two individual 
Simulations, the phase currents of the main bus were plotted for each 
Simulation and the phase angle, x, of the commercial power source was 
changed to synchronize the 4 diesel generators with the commercial 
power source. With both the commercial power source and 4 diesel 
generators operating in parallel, a steady-state run of ./5 second 
duration was conducted. The initial conditions obtained from this run 


were then used for all subsequent simulations using this particular power 
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plant configuration. Each time a simulation was run it took a short 
period of time for the program to reach steady state since all the 


derivatives are set to zero prior to the start of the simulation. 
6.3 Loss of Commercial Power Simulation 


Table 1 contains the input information required in the standard 
input format form specified in Section 5.3 for the SUB2 and main 
SPEED programs. The power plant simulated is identical to that of 
Figure 1 except that it has 4 vice 6 diesel generators, 8 vice 9 MG 
sets, and 15 vice 16 distribution transformers. The RL load is adjusted 
so that the power plant is initially operating at 50 percent of its 
capacity. The diesel generators are operating at 55 percent of their 
capacity and are supplying 50 percent of the power required by the power 
plant. The commercial power source supplies the other 50 percent of 
the required power. The whole power plant is operating at a 0.8 power 
factor. The integrating step throughout the simulation is .0003 seconds. 

АЕ 1 second, a single-phase fault occurs at the primary side of the 
commercial power interconnection transformer; at 1.1 seconds, the 
commercial power system is removed from the main bus. 

Some of the results of the simulation are plotted in Figures 9 and 
10. Figure 9 is the instantaneous three-phase power of a diesel generator 
versus time, and Figure 10 is the percent error of the line-a to line-b 
voltage of the main bus versus time, Additional results could be plotted, 
but these two figures exemplify what can be obtained from the 
program. Again, it must be mentioned, a more complicated and precise 


MAIN program is needed to accurately simulate the power plant. 
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Symbol 


еі 


е2 


e', 


Cat ‚ep: ‚ec: 


ref 


Description 


primary to secondary turns-ratio of 
transformer 


constant in formula for equivalent field 
saturation current 


instantaneous voltage rise 

output voltage of three-phase, full-wave 
rectifier in terminal-voltage feedback 
loop of regulator 


output voltage of quadratic filter in 
terminal-voltage feedback loop of regulator 


derivative of e* with respect to time 
output voltage of regulator amplifier 


limit of output voltage of regulator 
amplifier 


output voltage of feedback network in 
regulator 


integral of e, from time zero to time t 
instantaneous voltages of phases A', В" 
and C' of power source in commercial 
power system 

excitation voltage for synchronous motor 
instantaneous voltage rise of field winding 
value of er in balanced steady state 
value of ec at time zero 

reference voltage of regulator 

limit of field voltage of synchronous 
alternator due to saturation of exciter 
transformers 

maximum amplitude of e,,, ep: and ес, 
maximum amplitude of ед'2» Фр'2 and cio 


instantaneous current 


49 


Units 


amp/volt?-sec 


volt 


volt 


volt 


volt/sec 


volt 
volt 


volt 


volt-sec 


volt 
volt 
volt 
volt 
volt 


volt 


volt 
volt 


volt 





ki 


Description 


maximum amplitude of phase currents in 
balanced steady state 


maximum amplitude of currents of af rotor 
windings of induction motor in balanced 
steady state 

instantaneous currents of phases a, b and c 


instantaneous currents of phases A, B and C 


instantaneous currents of windings ab, bc 
and ca in A-connected side of transformer 


instantaneous currents of windings AB, BC 
and CA in A-connected side of transformer 


current of direct amortisseur winding 
instantaneous current of field winding 
value of іс in balanced steady state 


field-forcing current of exciter of 
synchronous alternator 


instantaneous currents of phases a, b and 
c Of RL load of main bus or of load of 
bus of MG set(s) 


instantaneous currents of phases A, B and 
C of load of distribution transformer 


moment of inertia 
current of quadrature amortisseur winding 


value of equivalent field saturation current 
in balanced steady state 


instantaneous currents of aßo rotor windings 
of induction motor 


phasor of current of a rotor winding of 
induction motor 


gain constant in excitation voltage source 
of synchronous motor 


gain constant in reactive-load share control 
of regulator 
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Units 


volt/amp 





Li 


Loa 


IN 


Lop hye 


bop рс 


Description 


gain constant ot quadratic filter in 
terminal-voltage feedback loop of regulator 


gain constant of regulator amplifier 
inductance 


self-inductance of o rotor winding of 
induction motor 


zero-phase-sequence inductance 


self-inductance of stator windings excluding 
saliency effects 


self-inductance of rotor windings of 
induction motor 


self-inductance of direct amortisseur 
winding 


synchronous inductance in direct axis 
transient inductance in direct axis 
subtransient inductance in direct axis 


leakage inductance of direct amortisseur 
winding 


leakage inductance of direct-axis stator 
winding 


equivalent leakage-inductance of transformer 
referred to Y-connected secondary 


self-inductance of field winding 
leakage inductance of field winding 


nominal inductance, per phase, of load of 
bus of MF set(s) 


nominal inductance, per phase, of load of 
distribution transformer 


nominal inductances of phases a, b andc 
of RL load of main bus 


instantaneous inductances of phases a, b 
and c of RL load of main bus or of load of 
bus Of MG set (s) 


E 


Units 


henry 


henry 
henry 


henry 
henry 


henry 
henry 
henry 
henry 


henry 
henry 


henry 
henry 
henry 


henry 
henry 


henry 


henry 





Symbo1 


АВ ,L 


LC 


LN 


La 


Юю 
a 
аў 


QA 


sa 


Ma 'b' 
a 


á 


Description 


instantaneous inductances of phases A, B 
and C of load of distribution transformer 


inductance of grounding reactor 


self-inductance of quadrature amortisseur 
winding 


synchronous inductance in quadrature axis 
subtransient inductance in quadrature axis 


leakage inductance of quadrature amortisseur 
winding 


leakage inductance of quadrature-axis stator 
winding 

maximum contribution from saliency to self- 
inductance of stator windings and to mutual 
inductance between stator windings 


per-line inductance of overhead transmission 
line in commercial power system 


equal to Lẹ divided by а? 


inductance of per-phase impedance of power 
source in commercial power system 


equal to Ly divided by a2 


self-inductance of aß rotor windings of 
induction motor 


mutual inductance 


maximum mutual inductance between stator 
and rotor windings of induction motor 


mutual inductance between stator windings 
excluding saliency effects 


mutual inductance between rotor windings of 
induction motor 


maximum mutual inductance between stator 
and direct amortisseur windings 


maximum mutual inductance between stator 
and field windings 


5> 


Units 


henry 
henry 


henry 
henry 
henry 


henry 


henry 


henry 


henry 
henry 


henry 
henry 


henry 
henry 


henry 
henry 
henry 
henry 


henry 





ni 


М, 


n2 


N2 


RLA RLB Rr c 


Rm 


Description 


maximum mutual inductance between stator 
and quadrature amortisseur windings 


maximum mutual inductance between stator 
and a8 rotor windings of induction motor 


mutual inductance between field and direct 
amortisseur windings 


number of pole-pairs 


number of turns in primary winding of 
trans former 


equal to the ratio of M. £ to Mea 


number of turns in secondary winding of 
transformer 


equal to the ratio of M e to Mea 


resistance 
resistance of stator windings 


resistance of rotor windings of induction 
motor 


resistance of direct amortisseur winding 


equivalent winding-resistance of transformer 
referred to Y-connected secondary 


resistance of field winding 


nominal resistance, per phase, of load of 
bus of MG set(s) 


nominal resistance, per phase, of load of 
distribution transformer 


secondary load-resistance in transformer 
equivalent of induction motor 


instantaneous resistances of phases A, B 
and C of load of distribution transformer 


magnetizing impedance of exciter transformers 
of synchronous alternator 
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Units 
henry 
henry 


henry 


ohm 
ohm 


ohm 
ohm 


ohm 
ohm 


ohm 
ohm 
ohm 
ohm 


ohm 





t2 
L2 


t3 


ty 


t! 


do 


" 


ds 


tef 


Та» 
m 


m 


Description 
resistance of quadrature amortisseur winding 


per-line resistance of overhead transmission 
line in commercial power system 


equal to R divided by a? 


resistance of per-phase impedance of power 
source in commercial power system 


equal to R, divided by a? 
fractional slip of rotor of induction motor 
time 


time constant of quadratic filter in terminal- 
voltage feedback loop of regulator 


time constant of quadratic filter in terminal- 
voltage feedback loop of regulator 


time delay of regulator amplifier 
time constant of feedback network in regulator 
time delay of feedback network in regulator 


open-circuit time constant of direct amortis- 
seur winding 


short-circuit time constant of direct 
amortisseur winding 


effective field time constant of loaded 
machine 


open-circuit time constant of field winding 
short-circuit time constant of field winding 


open-circuit time constant of quadrature 
amortisseur winding 


short-circuit time constant of quadrature 
amortisseur winding 


recovery time for step load change 


54 
Units 


ohm 


ohm 
ohm 


ohm 
ohm 
sec | 


sec 
sec 


sec? 
sec 
sec 


sec 
sec 
sec 


sec 
sec 


sec 
sec 


sec 


sec 





Уа, Vp? Ус 


Va» VB» YC 


Vab bc’ ca 


VAB »VBC VCA 


22 


Description 


maximum amplitude of phase terminal voltage 
drops in balanced steady state 


instantaneous terminal voltage drops to 
ground of phases a, b and c 


instantaneous voltage: drops to ground of 
phases A, B and C 


instantaneous terminal voltages of line-a- 
to-line-b, line-b-to-line-c and line-c-to- 
line-a 


instantaneous voltages -of’ line-A-to-line-B, 
line-B-to-line-C and’ line-C-to-line-A 


maximum amplitude of line-to-line terminal 
voltage 


instantaneous voltage drop of grounding 
reactor 


reactance 


synchronous reactance in direct and quadrature 
axes excluding saliency effects 


mitual reactance, based on stator frequency, 
between stator and rotor windings in transformer 
equivalent of induction motor 


leakage reactance of stator windings in 
transformer equivalent of induction motor 


leakage reactance, based on stator frequency, 
of rotor windings in transformer equivalent 
of induction motor 


mutual reactance, based on stator frequency, 
between stator and af rotor windings in 
transformer equivalent of induction motor 
synchronous reactance in direct axis 
synchronous reactance in quadrature axis 
self-reactance, based on stator frequency, 


of aß rotor windings in transformer equiva- 
lent of induction motor 


55 


Units 
volt 
volt 


volt 


volt 
volt 
volt 


volt 


ohm 


ohm 


ohm 
ohm 
ohm 
ohm 
ohm 


ohm 


ohm 





Symbo1 
Af 


Description 


electrical speed deviation for application 
and removal of field excitation in 
synchronous motor 

electrical angle of axis of field winding, 
or of a rotor winding in induction motor, 
with respect to axis of phase-a stator 
winding, measured in direction of rotor's 
rotation 

value of 8 at time zero 

mechanical angle of rotation of rotor 
instantaneous flux linkages 


instantaneous flux linkages of DQO stator 
windings 


instantaneous flux linkages of field 
winding 


instantaneous flux linkages of quadrature 
amortisseur winding 


value of he at which field saturation begins 


instantaneous flux linkages of ago rotor 
windings of induction motor 


electromagnetic torque 
power factor angle 
phase angle of ел, at time zero 


phase angle used in currents of af rotor 
windings of induction motor 


electrical speed of rotor, or electrical 
frequency 


mechanical speed of rotor 
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Units 


rad 
rad 
rad 


volt-sec 
volt-sec 
volt-sec 


volt-sec 


volt-sec 

volt-sec 
rad 
rad 
rad 


rad/sec 


rad/sec 





APPENDIX B 


MAJOR FORTRAN ARRAYS USED IN SUB2 PROGRAM 


(pages 58 to 92) 
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A Array (in COWON, Dimensions: 80 x 35) 
Generators of Generating Units 


Fortran 


А(1,1) 


А(2,1) 


А(3,1) 


А(4,1) 


А(5,1) 


А(6,1) 


А(7,1) 


А(8,1) 


А(9,1) 


A(10,1) 


А(11,1) 
А(12,1) 
А(13,1) 


А(14,1) 


А(15,1) 


Description 


self-inductance of stator wind- 
ings excluding saliency effects 


mutual inductance between stator 
windings excluding saliency 
effects 


maximum contribution from 
saliency to self-inductance of 
stator windings and to mutual 
inductance between stator 
windings 

maximum mutual inductance 
between stator and field 
windings 

maximum mutual inductance 
between stator and direct 
amortisseur windings 

maximum mutual inductance 
between stator and quadrature 
amortisseur windings 
self-inductance of field winding 


mutual inductance between field 
and direct amortisseur windings 


self-inductance of direct 
amortisseur winding 


self-inductance of quadrature 
amortisseur winding 


resistance of stator windings 
resistance of field winding 


resistance of direct amortisseur 
winding 


resistance of quadrature 
amortisseur winding 


number of pole-pairs 


Units 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 
ohm 
ohm 


ohm 


ohm 
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Algebraic 





Fortran 


A(16,1) 
A(17,1) 


А(18,1) 
& 
A(19,1) 
A(20,1) 


A(21,1) 
A(22,1) 
A(23,1) 


А(24,1) 
А(25,1) 
A(26,1) 


A(27,1) 
A(28,1) 
A(29,1) 
A(30,1) 
A(31,1) 


А(32,1) 


Description 


value of field flux linkages at 
which field saturation begins 


constant in formula for equiva- 
lent field saturation current 


not used 


time of removing generator from 
main bus 


inductance of grounding reactor 
reference voltage of regulator 


gain constant in reactive-load 
share control of regulator 


gain constant of quadratic fil- 
ter in terminal-voltage feedback 
loop of regulator 


time constant of quadratic fil- 
ter in terminal-voltage feedback 
loop of regulator 


time constant of quadratic fil- 
ter in terminal-voltage feedback 
loop of regulator 


gain constant of regulator 
amplifier 


time delay of regulator 
amplifier 


time constant of feedback net- 
work in regulator 


time delay of feedback network 
in regulator 


magnetizing impedance of exciter 
transformers 


limit of field voltage due to 
saturation of exciter 
transformers 


Units 
volt-sec 


amp/volt?-sec? 


sec 
henry 


volt 


volt/amp 


Sec 


sec? 


Sec 
sec 
sec 


ohm 


volt 
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Algebraic 


C 


ref 


К, 


k2 


t> 


Кз 
©з 
t. 


e 


4 








Fortran 


A(33,1) 


A(34,1) 
G 
A(35,1) 
A(36,1) 


A(37,1) 


А(38,1) 
ТО 
А(80,1) 


Description 


limit of output voltage of 
regulator amplifier 


not used 
value of field voltage at time 


Zero 


output voltage, at time zero, of 
feedback network in regulator 


not used 


Motor-Generator (MG) Sets 


Motors 


A(1,1) 


A(2,1) 


А(3,1) 


А(4,1) 


А(5,1) 


А(6,1) 


А(7,1) 


А(8,1) 


self-inductance of stator wind- 
ings excluding saliency effects 


muitual inductance between stator 
windings excluding saliency 
effects 


maximm contribution from 
sallency to self-inductance of 
stator windings and to mutual 
inductance between stator 
windings 


maximum mutual inductance 
between stator and field 
windings 


maximum mutual inductance 
between stator and direct 
amortisseur windings 


maximum mutual inductance 
between stator and quadrature 
amortisseur windings 
self-inductance of field winding 


mutual inductance between field 
and direct amortisseur windings 


Units 


volt 


volt 


volt 


henry 


henry 


henry 


henry 


henry 


henry 
henry 


henry 
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Algebraic 


Ez 


“fo 


de' 
dt 





Sa 


af 


M 


ad 


aq 


fd 





Fortran 


A(9,1) 


A(10,1) 


А(11,1) 


А(12,1) 


A(13,1) 
A(14,1) 


А(15,1) 
А(16,1) 


А(17,1) 


А(18,1) 
G 
A(19,1) 
A(20,1) 


N21, I) 
A(22,I) 


(23.1) 
А(24,1) 
A(25,1) 


A(26,1) 


А(27,1) 
ТО 
А(30,1) 


Description Units 
self-inductance of direct 
amortisseur winding henry 
self-inductance of quadrature 
amortisseur winding henry 
resistance of stator windings ohm 
resistance of field winding ohm 
resistance of direct amortisseur 
winding ohm 
resistance of quadrature 
amortisseur winding ohm 
number of pole-pairs 
value of field flux linkages at 
which field saturation begins volt-sec 


constant in formula for equiva- 


lent field saturation current amp/volt?-sec? 


not used 

time of removing MG set from 
main bus sec 
inductance of grounding reactor 


henry 


gain constant in excitation 
voltage source 


indicator of source of excitation voltage 
» 0, from lines a and b of main bus 
< 0, from lines b and c of main bus 


electrical speed deviation for 
application and removal of field 


excitation cps 
field discharge resistance ohm 
total moment of inertia of MG 

set lb-ft? 
not used 


Af 


fd 





Fortran Description 
Generators 

А(31,1) self-inductance of stator wind- 
ings excluding saliency effects 

A(32,I) mutual inductance between stator 
windings excluding saliency 
effects 

A(33,1) maximum contribution from 
saliency to self-inductance of 
stator windings and to mutual 
inductance between stator 
windings 

A(34,1) maximum mutual inductance 
between stator and field 
windings 

A(35,1) maximum mutual inductance 
between stator and direct 
amortisseur windings 

A(36,1) maximum mutual inductance 
between stator and quadrature 
amortisseur windings 

A(37,1) self-inductance of field winding 

A(38,1) mutual inductance between field 
and direct amortisseur windings 

A(39,1) self-inductance of direct 
amortisseur winding 

A(40,1) self-inductance of quadrature 
amortisseur winding 

A(41,1) resistance of stator windings 

A(42,1) resistance of field winding 

A(43,1) resistance of direct amortisseur 
winding 

A(44,1) resistance of quadrature 
amortisseur winding 

A(45,1) value of field flux linkages at 


which field saturation begins 


Units 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 


henry 
ohm 
ohm 


ohm 


ohm 


volt -sec 
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Algebraic 


sa 


af 


a 


o 





Fortran 


А(46,1) 


А(47,1) 
A(48,1) 
А(49,1) 
А(50,1) 


А(51,1) 


А(52,1) 


А(53,1) 


А(54,1) 


А(55,1) 


А(56,1) 
А(57,1) 
A(58,1) 


A(59,1) 


A(60,1) 


А(61,1) 


А(62,1) 
to 
А(65,1) 


Description 


constant in formula for equiva- 
lent field saturation current 


not used 


reference voltage of regulator 


gain constant in reactive-load 
share control of regulator 


gain constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 


time constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 


time constant of quadratic fil- 
ter in terminal-voltage feedback 
loop of regulator 


gain constant of regulator 
amplifier 

time delay of regulator 
amplifier 


time constant of feedback 
network in regulator 


time delay of feedback network 
in regulator 


magnetizing impedance of exciter 
transformers 


limit of field voltage due to 
saturation of exciter 
transformers 


limit of output voltage of regu- 
lator amplifier 


inductance of grounding reactor 


not used 


Units 


amp/volt?-sec? 


volt 


volt/amp 


sec 


sec? 


Sec 


Sec 
sec 


ohm 


volt 


volt 


henry 
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Algebraic 


C 


ref 


ki 


t2 


t3 


ч 


t 


Ез 





Fortran 


А(66,1) 


A(67,1) 


Description 


value of field voltage at time 
zero 


output voltage, at time zero, of 
feedback network in regulator 


of MG Sets 


А(68,1) 


А(69,1) 


А(70,1) 
2(71,1) 
А(72,1) 
A(73,1) 


А(74,1) 
А(75,1) 


A(76,1) 


A(77,1) 


A(78,1) 


A(79,1) 


А(80,1) 


rated maximm line-to-line 
voltage 
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Units Algebraic 
volt € £o 
volt de', 

dt 
volt 


indicator for parallel operation of two MG sets 
»/0, MG set is connected to its own bus 
< 0, MG set is connected to bus of preceding MG set 


nominal resistance, per phase, 
of load 


nominal inductance, per phase, 
of load 


time of disconnecting the 
generator from bus 


time of commencement of step 
change in load 


fractional step change of load 


time of commencement of fault on 
bus 


time of termination of fault on 
bus 


describes type of fault on bus 

< 1, no fault 

= 1, single-phase (a) fault 

= 2, two-phase (a and b) fault 

= 3, three-phase (a, b and c) fault 
> 4, line-to-line (a to b) fault 


time of commencement of sinusoi- 
dal variation of load 


angular frequency of sinusoidal 
variation of load 


fractional amplitude of sinusoi- 
dal variation of load 


ohm R 
henry Lo 
sec 


sec 


sec 


sec 


sec 


rad/sec 





Fortran 


Description 


Induction Motors 


AQ, I) 


AQ,I) 


A(3,1) 


A(4,1) 


А(5,1) 


А(6,1) 


А(7,1) 
А(8,1) 


А(9,1) 


А(10,1) 


А(11,1) 
ТО 
А(80,1) 


self-inductance of stator 
windings 


mutual inductance between stator 
windings 


self-inductance of af rotor 
windings 

maximum mutual inductance 
between stator and af rotor 
windings 

resistance of stator windings 
resistance of rotor windings 


number of pole-pairs 


time of removing motor from main 
bus 


total moment of inertia of motor 
and its mechanical load 


number of entries in table of 
mechanical torque vs. mechanical 
speed 


table of mechanical torque vs. 


mechanical speed A(11,1), A(13,1) 


and so on are the speeds in 
rad/sec; A(12,I), A(14,I) and so 
on are the corresponding torques 
in ft-1b. 


Distribution Transformers 


A(1,1) 


(2,1) 


A(3,1) 
А(4,1) 


equivalent winding-resistance of 
transformer referred to Y- 
connected secondary 


equivalent leakage-inductance of 
transformer referred to Y- 
connected secondary 

primary to secondary turns-ratio 


nominal resistance, per phase, 
of load 


Units 


henry 
henry 
henry 
henry 


ohm 
ohm 


sec 


lb-ft? 


ohm 


henry 


ohm 


65 


Algebraic 


M 
aa 


a' 





66 


Fortran Description Units Algebraic 
А(5,1) nominal inductance, per phase, 
of load henry Lr 
A(6,1) time of commencement of step 
change in load sec 
A(7 ,I) fractional step change of load 
А(8,1) time of commencement of fault on 
secondary 
A(9,1) time of termination of fault on 
secondary 
A(10,1) describes type of fault on secondarv 


< 1, no fault 


= 1, single-phase (A) fault 
= 2, tw-phase (A and B) fault 
= 3, three-phase (A, B and C) fault 
» 4, line-to-line (A to B) fault 
А(11,1) time of removing transformer 
from main bus sec 
А(12,1) rated maximm line-to-line 
voltage of secondary volt 
А(13,1) 
to not used 
A(19,1) 
А(20,1) used by VMAXTR as initiallzing 
switch 
A(21,1) 
not used 


to 
А(80,1) 


B Array (in COMMON, Dimensions: 99-х 35) 
Generators of Generating Units 


Fortran 


B(1,I) 


B(2,1) 
B(3,1) 
B(4,1) 
B(5,1) 
B(6,1) 


В(7,1) 
В(8,1) 


В(9,1) 

В(10,1) 
В(11,1) 
В(12,1) 


В(13,1) 
В(14,1) 
В(15,1) 
to 
В(18,1) 
В(19,1) 


В(20,1) 


:8(21, 1) 
В(22,1) 


Description 


instantaneous three-phase power 
or "average three-phase power" 


"peak reactive power per phase" 
electromagnetic torque 

percent rotor speed error 
electrical speed of rotor 


instantaneous flux linkages of 
field winding 


instantaneous value of equiva- 
lent field saturation current 


derivative of ха with respect 
to Ag 


uM, sino 
: 2T 
uM, ¿Sin (0 - +) 
: 211 
uM е5іп(0 + 7) 
output voltage of three-phase, 
full -wave rectifier in terminal - 


voltage feedback loop of 
regulator 


field forcing current of exciter 


instantaneous field voltage 
not used 


coso 
sind 
cos (O + 27) 


sin (O + 


Units 


KVA 
ft-1b 


rad/sec 


volt-sec 


amp 


amp/volt-sec 


ohm 
ohm 
ohm 


volt 


volt 
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Algebraic 


p, P 


e] 


leg 





Fortran 


B(23,1) 
B(24,1) 
B(25,1) 
B(26,1) 
B(27,1) 
B(28,1) 
B(29,1) 
B(30,1) 
B(31,1) 


to 
B(99,1) 


Description 
cos (9 - 
sin(O - 27) 
C0520 
$1120 


cos (20 + = 
sin(20 + 25 


C05 (20 - =) 


гт. 


sin (29 - 7 


not used 


Motor-Generator (MG) Sets 


Motors 


B(1,I) 


B(2,1) 
B(3,1) 
B(4,1) 
B(5,1) 
B(6,1) 


B(7,I) 


B(8,1) 


B(9,1) 
B(10,1) 


B(11,1) 


instantaneous three-phase power 


or "average three-phase power" 


"peak reactive power per phase" 


electromagnetic torque 
percent rotor speed error 
electrical speed of rotor 


instantaneous flux linkages of 
field winding 


instantaneous value of equiva- 
lent field saturation current 


derivative of і, with respect 
to Ag 


UM, ¿SINO 
им ‚sine - 27 
af 3 


: 2T 
(М зіп (9 3. т” 


Units 


KVA 
ft-1b 


rad/sec 


volt-sec 


amp 


amp/volt-sec 


ohm 
ohm 


ohm 


68 


Algebraic 


p, P 





Fortran Description 
В(12,1) instantaneous field voltage 
В(13,1) 
to not used 
В(18,1) 
В(19,1) со50 
B(20,1) sind 
B(21, 1) C05(0 427 
B(22,1) зал (0 + 47) 
2T 
B(23,1) cos (0 > T) 
B(24,1) sin(o - 57 
B(25,1) соѕ20 
В(26,1) 51120 
21 
В(27,1) СО5 (20 + z) 
B(28,1) sin(20 + 33) 
| 2T 
B(29,1) cos(20 - 7) 
: 2T 
В(30,1) sin(20 - =-) 
Generators 
B(31,1) instantaneous three-phase power 
or "average three-phase power" 
B(32,1) "peak reactive power per phase" 
B(33,1) electromagnetic torque 
B(34,1) instantaneous flux linkages of 
field winding 
B(35,1) instantaneous value of equiva- 
lent field saturation current 
B(36,1) derivative of 1, with respect 
to de 
В(37,1) uM, ¿Sino 


Units 


volt 


KW 
KVA 
ft-1b 


volt -sec 


amp 


amp/volt-sec 
ohm 
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Algebraic 


er 


p, P 





Fortran 


B(38,1) 
B(39,1) 
B(40,1) 


B(41,1) 
B(42,1) 
B(43,1) 
to 
B(48,1) 
B(49,1) 
B(50,1) 
B(51,1) 
B(52,1) 
В(53,1) 
В(54,1) 
В(55,1) 
B(56,1) 
В(57,1) 
В(58,1) 
В(59,1) 
B(60,1) 


Description Units 
: 2T 
uM, ¿sin (0 т”) оһт 
2 2T 
«М, fee in (0 + 7? ohm 


output voltage of three-phase, 
full-wave rectifier in terminal- 
voltage feedback loop of 


regulator volt 
field forcing current of exciter amp 
instantaneous field voltage volt 
not used 

со50 

sino 


соѕ (О + =" 


sin(o + z 


cos(0 - = 
sin(O - zn 
cos20 
sin20 


cos (20 + 25 
sin(20 + >. 
C05(20 - 25 
sin(20 - 27) 


of MG Sets 


В(61,1) 


В(62,1) 


instantaneous three-phase power 
or "average three-phase power" 
of load KW 


"peak reactive power per phase" 
of load KVA 


70 


Algebraic 


p, P 





Fortran 


B(63,1) 


В(64,1) 


В(65,1) 


В(66,1) 


В(67,1) 


B(68,1) 


B(69,1) 


B(70,1) 


B(71,1) 


B(72,1) 


B(73,D 


B(74,1) 


В(75,1) 


B(76,1) 


B(77,1) 


B(78,1) 


B(79,1) 


Description 
consecutive display of B(65,I) 


to B(70,I) 


consecutive display of B(71,I) 


to B(73,1) 


percent error 
of B(77,1) 


percent error 
of B(77,1) 


percent error 
of B(78,I) 


percent error 
of B(78,1) 


percent error 
of B(79,1) 


percent error 
of B(79,1) 


percent error 
B(77,1) 


percent error 
B(78,1) 


percent error 
B(79,1) 


of positive peak 


of negative peak 


of positive peak 


of negative peak 


of positive peak 


of negative peak 


of frequency of 


of frequency of 


of frequency of 


instantaneous voltage drop to 
ground of phase a 


instantaneous voltage drop to 
ground of phase b 


instantaneous voltage drop to 
ground of phase c 


instantaneous 
voltage 


instantaneous 
voltage 


instantaneous 
voltage 


line-a-to-line-b 


line-b-to-line-c 


line-c-to-line-a 


Units 


volt 
volt 


volt 


volt 


volt 
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Algebraic 


Vab 
Ус 


са 





Fortran 


B(80,1) 
B(81,1) 
B(82,1) 
B(83,1) 
B(84, I) 
B(85, I) 
B(86,1) 
B(87,1) 
B(88,1) 


В(89,1) 
В(90,1) 
В(91,1) 
B(92,1) 


B(93,1) 
B(94,1) 


B(95,1) 


B(96,1) 


Description 


instantaneous 
ance of phase 


instantaneous 
ance of phase 


instantaneous 
ance of phase 


instantaneous 
ance of phase 


instantaneous 
ance of phase 


instantaneous 
ance of phase 


instantaneous 
of load 


instantaneous 
of load 


instantaneous 
of load 


value of resist- 
a of load 


value of resist- 
b of load 


value of resist- 
c of load 


value of induct- 
a of load 


value of induct- 
b of load 


value of induct- 
c of load 
current of phase 


current of phase 


current of phase 


time derivative of B(86,1) 


time derivative of B(87,1) 


time derivative of B(88,I) 


used as switch by DISCN in con- 
junction with backstepping to 
integrate to zero phase-a-current 
when generator is being removed 
from bus 


same as B(92,I) but for phase-b- 
current 


same as B(92,1) but for phase-c- 
current 


used as switch set by DISCÓN if 
B(95,I) is greater than zero, 
phase a of generator has been 
disconnected from bus 


same as B(95,1) but for phase b 


Units 
ohm 
ohm 
ohm 
henry 
henry 


henry 


amp/sec 
amp/sec 
amp/sec 
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Algebraic 


1 
E 


1 
Rob 


წ 
Roc 


! 
Loa 


Lob 


1 
Loc 
103 
їг, 


La 





Fortran 


В(97,1) 
В(98,1) 


В(99,1) 


same as B(95,I) but for phase c 


set equal to I when generator is 


Description 


disconnected from bus 


used by VMAXGB as initializing 


switch 


Induction Motors 


В(1,1) 


В(2,1) 
В(3,1) 
B(4,1) 
в(5,1) 
B(6,1) 
B(7,1) 
B(8,1) 
B(9, I) 
to 
B(11,I) 
B(12,I) 


B(13,1) 
to 
B(18,I) 
B(19,I) 
B(20,I) 
B(21,I) 
B(22,1) 
B(23,1) 


B(24,1) 


instantaneous three-phase power 
or "average three-phase power" 


"peak reactive power per phase" 


electromagnetic torque 


percent rotor slip 


electrical speed of rotor 


not used 


set equal to zero 


not used 


set equal to zero 


mechanical torque 


not used 


cosO 
sinO 
cos (O + = 
sin (0 +z 
cos (9 - = 


sin (O = დ 


Units 


KVA 
ft-1b 


rad/sec 


ft-lb 


13 


Algebraic 


p, P 





Fortran 


В(25,1) 
to 
В(99,1) 


Description 


not used 


Distribution Transformers 


B(1,1) 


В(2,1) 


B(3,1) 


B(4,1) 


B(S,1) 


В(6,1) 


В(7,1) 


B(8,1) 


B(9,1) 


B(10,1) 


В(11,1) 


В(12,1) 


B(13,1) 


B(14,1) 


B(15,1) 


instantaneous current to phase a 
of main bus 


instantaneous current to phase b 
of main bus 


instantaneous current to phase c 
of main bus 


instantaneous phase-A-to-ground 
voltage drop of secondary 


instantaneous phase -B-to-ground 
voltage drop of secondary 


instantaneous phase-C-to-ground 
voltage drop of secondary 


instantaneous line-A-to-line-B 
voltage drop of secondary 


instantaneous line-B-to-line-C 
voltage drop of secondary 


instantaneous line-C-to-line-A 
voltage drop of secondary 


instantaneous three-phase power 
or "average three-phase power" 
of load 


"peak reactive power per phase" 
of load 


consecutive display of B(14,I) 
to B(19,1) 


consecutive display of B(20,1I) 
to B(22,I) 


percent error of positive peak 
of B(7,1) 


percent error of negative peak 
of В(7,1) 


Units 


amp 


volt 


volt 


volt 


volt 


volt 


volt 


KW 


KVA 
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Algebraic 


p, P 





Fortran 


В(16,1) 
В(17,1) 
B(18,1) 
B(19,1) 
B(20,1) 
B(21,1) 
B(ZZ, 1) 


B(23,1) 
to 

B(30,1) 

B(31,1) 


B(32,1) 
B(33,1) 
B(34,1) 
B(35,1) 
B(36,1) 


B(37,1) 
а 
B(38,1) 


Description Units 
percent error of positive peak 
of B(8,I) 
percent error of negative peak 
of B(8,I) 
percent error of positive peak 
of B(9,I) 
percent error of negative peak 
of B(9,I) 
percent error of frequency of 
В(7,1) 
percent error of frequency of 
В(8,1) 
percent error of frequency of 
В(9,1) 
not used 
instantaneous value of resist- 
ance of phase A of load ohm 
instantaneous value of resist- 
ance of phase B of load ohm 
instantaneous value of resist- 
ance of phase C of load ohm 
instantaneous value of induct- 
ance of phase A of load henry 
instantaneous value of induct- 
ance of phase B of load henry 
instantaneous value of induct- 
ance of phase C of load henry 


not used 


5 


Algebraic 


LB 


LC 





Fortran 


В(39,1) 
to 
В(50,1) 


В(51,1) 
to 
В(99,1) 
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Description Units Algebraic 
coefficients as indicated below 
di di di di 
A. La Rb LC 
Лүн B(39,I) * B(40,I) T В(41,1) 2 + B(42,1) > 


dig ata 41, Moe 
qe" B(43,1) + В(44,1) + B(45,D) q— * B(46,I) Je~ 


di. di 


di,, dio, T 
ye~ 7 B(47,1) + B(48,1) — + В(49,1) ар-- 9 В(50,1) те 


not used 





C Array (in COMMON, Dimension: 50) 


Fortran 


C(1) 
C(2) 


C(3) 
C (4) 
C (5) 
C(6) 
C(7) 
C(8) 
C (9) 
с(10) 
c(11) 
С(12) 


С(13) 


С(14) 


С(15) 


С(16) 
to 
С(34) 


Description 
specified integrating time step 


rated maximum line-to-line 
voltage of main bus 


nominal resistance of phase a of 
RL load of main bus 


nominal resistance of phase b of 
RL load of main bus 


nominal resistance of phase c of 
RL load of main bus 


nominal inductance of phase a of 
RL load of main bus 


nominal inductance of phase b of 
RL load of main bus 


nominal inductance of phase c of 
RL load of main bus 


time of commencement of fault on 
main bus 


time of termination of fault on 
main bus 


time of commencement of step 
change in RL load of main bus 


fractional step change of RL 
load of main bus 


time of commencement of sinusoi- 
dal variation of RL load of main 
bus 


angular frequency of sinusoidal 
variation of RL load of main bus 


fractional amplitude of sinusoi- 


dal variation of RL load of main 
bus 


not used 
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Units Algebraic 


sec 


volt 

ohm Roa 
ohm Rob 
ohm Roe 
henry Loa 
henry Lob 
henry Loe 
sec 

sec 

sec 

sec 

rad/sec 





Fortran 


C(35) 


C(36) 


C(37) 


C(38) 


C(39) 


C (40) 


C(41) 


C(42) 


C(43) 


C (44) 


Description 


equivalent leakage-inductance of 
commercial power interconnection 
transformer referred to Y- 
connected secondary 


equivalent winding-resistance of 
commerclal power interconnection 
transformer referred to Y- 
connected secondary 


per-line inductance of overhead 
transmission line in commercial 
power system, referred to Y- 
connected secondary of inter- 
connection transformer 


per-line resistance of overhead 
transmission line in commercial 
power system, referred to Y- 
connected secondary of inter- 
connection transformer 


per-phase inductance of power 
source in commercial power 
system, referred to Y-connected 
secondary of interconnection 
transformer 


per-phase resistance of power 
source in commercial power 
system, referred to Y-connected 
secondary of interconnection 
transformer 


maximum amplitude of phase volt- 
ages of power source in commer- 
clal power system, referred to 
Y-connected secondary of inter- 
connection transformer 


phase angle, at time zero, of 
phase-A' voltage of power source 
in commercial power system 


time of commencement of step 
change in amplitude of phase 
voltages of power source in 
commercial power system 


fractional step change in ampli- 
tude of phase voltages of power 
source in commercial power system 


Units 


henry 


ohm 


henry 


ohm 


henry 


ohm 


volt 


rad 


sec 
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Algebraic 


bea? 


eq2 


Lr2 


Кә 


Lo 


Rye 


Eu2 





Fortran 


C(45) 
С (46) 
С (47) 
С (48) 


С (49) 
6 
С(50) 


Description 


time of termination of step 
change in amplitude of phase 
voltages of power source in 
commercial power system 


time of removing commercial 
power system from main bus 


time of commencement of fault at 
primary side of commercial power 
interconnection transformer 


time Of termination of fault at 


primary side of commercial power 
interconnection transformer 


not used 


29 


Units Algebraic 


Sec 


Sec 


sec 


sec 


D Array (in COMMON, Dimension: 120) 


Fortran 


D(1) 


D(2) 


D(3) 


D(4) 


р(5) 


р(6) 


р(7) 


р(8) 


р(9) 


р(10) 


р(11) 


р(12) 


р(15) 


D(14) 


D(15) 


р(16) 


Description 


consecutive display of D(7) to 
D(12) 


consecutive display of D(13) to 
D(15) 


instantaneous three-phase power 
or "average three-phase ромег"' 
of load of main bus 


"peak reactive power per phase" 
of load of main bus 


instantaneous three-phase power 
or "average three-phase power" 
of commercial power system 


"peak reactive power per phase" 
of commercial power system 


percent error of positive peak 
of D(38) 


percent error of negative peak 
of D(38) 


percent error of positive peak 
of D(39) 


percent error of negative peak 
of D(39) 


percent error of positive peak 
of D(40) 


percent error of negative peak 
of D(40) 


percent error of frequency of 
D(38) 


percent error of frequency of 
D(39) 


percent error of frequency of 
D(40) 


instantaneous resistance of 
phase a of RL load of main bus 


Units 


KVA 


KVA 


ohm 
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Algebraic 


р, Р 


р, Р 


! 
Ra 


Fortran 


D(17) 


р(18) 


р(19) 


D(20) 


D(21) 


D(22) 


D(23) 


D(24) 


D(25) 
D(26) 
D(27) 
D(28) 


D(29) 


D(30) 


D(31) 
D(32) 
D(34) 
D(35) 


D(36) 


Description Units 
instantaneous resistance of 
phase b of RL load of main bus ohm 
instantaneous resistance of 
phase c of RL load of main bus ohm 
instantaneous inductance of 
phase a of RL load of main bus henry 
instantaneous inductance of 
phase b of RL load of main bus henry 
instantaneous inductance of 
phase c of RL load of main bus henry 
instantaneous current of phase a 
of RL load of main bus amp 
instantaneous current of phase b 
of RL load of main bus amp 
instantaneous current of phase c 
of RL load of main bus amp 
time derivative of D(22) amp/sec 
time derivative of D(23) amp/sec 
time derivative of D(24)' amp/sec 
instantaneous phase-a current of 
total load of main bus amp 
instantaneous phase-b current of 
total load of main bus amp 
instantaneous phase-c current of 
total load of main bus amp 
actual integrating time step sec 
not used 
instantaneous phase -a-to-ground 
voltage drop of main bus volt 
instantaneous phase-b-to-ground 
voltage drop of main bus volt 
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Algebraic 


Rob 


1 
Rec 


' 
Loa 


Lop 


' 
Lic 





82 


Fortran Description Units Algebraic 
D(37) instantaneous phase-c-to-ground 

voltage drop of main bus volt ve 
D(38) instantaneous line-a-to-line-b 

voltage of main bus volt Vab 
D(39) instantaneous line-b-to-line-c 

voltage of main bus volt +. > 
D(40) instantaneous line-c-to-line-a 

voltage of main bus volt Уса 
р(41) 

to not used 

D(78) 
D(79) the expression amp/sec 


(Re + Ri) па * Краја ! (Кра * Кр * К'2) 1а 7 (Кр * К'2) а 
t 
M. + L. + L, М. + L. + L's 


divided by the expression 


M M 
1 - r r 


' 
Me bet Ly М +. + 


р(80) same as D(79) with subscript a 
replaced by subscript b 
D(81) same as D(79) with subscript a 
replaced by subscript c 
D(82) QM. * 2L, + Li + L'2)/[(L, + Li) 
(Er +17) > dd henry ^! 
D(83) 
to not used 
D(95) 
D(96) instantaneous voltage of phase A' 


of power source in commercial 

power system, referred to Y- 

connected secondary of intercon- 

nection transformer volt ern 


D(97) same as D(96) but for phase B' volt ері? 





Fortran 


D(98) 
D(99) 
D(100) 
to 
р(111) 


D(112) 
to 
D(120) 
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Description Units Algebraic 
same as D(96) but for phase C' volt есі? 


not used 


coefficients, pertaining to 
commercial power system, as 
indicated below 


di dio, di 


С СКИ ЗОО У роо Е роо р а 


те“ = 00104) + 00105) q,— * (106) 4L— + 0(107) 


di. disa di sb di... 


not used 





G Array (in COMMON, Dimensions: 21 х 55) 


Description 
time two integrating time steps 


Fortran 


G(1,1) 


G(2,1) 


G(3,1) 
G(4,1) 


ЕТЕ Т) 


G(6,1) 


G(7,1) 


G(8,1) 


G(9,1) 


G(10,1) 


G(11,1) 


6(12,1) 


G(13,1) 


G(14,1) 


G(15,D 


G(16,1) 


back 


time One integrating time step 


back 
present time 


value of B(7,I) 
transformers at 


value of B(7,I) 
transformers at 


value of B(7,1) 
transformers at 


value of B(8,1) 
transformers at 


value of B(8,I) 
transformers at 


value of B(8,I) 
transformers at 


value of B(9,I) 
transformers at 


value of B(9,1) 
transformers at 


value of B(9,I) 
transformers at 


time of most recent zero-crossing 


for distribution 
time G(1,1) 


for distribution 
time G(2,1) 


for distribution 
time G(3,1) 


for distribution 
time G(1,1) 


for distribution 
time G(2,1) 


for distribution 
time G(3,1) 


for distribution 
time G(1,1) 


for distribution 
time G(2,1) 


for distribution 
time G(3,1) 


of B(7,1) for distribution 


transformers 


time of most recent zero-crossing 


of B(8,1) for distribution 


transformers 


time of most recent zero-crossing 


of B(9,I) for distribution 


transformers 


used by VMAXTR as switch in com- 
putation of peaks of B(7,I) for 
distribution transformers 
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Units 
sec 


sec 


sec t 
volt 
volt 
volt 
volt 
volt 
volt 
volt 
volt 


volt 


sec 


sec 


sec 


Algebraic 





Fortran 


G(17,1) 


G(18,1) 


G(19,I) 


G(20,1) 


G(21,1) 
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Description Units Algebraic 


same as G(16,I) but for B(8,I) 
for distribution transformers 


same as G(16,I) but for B(9,I) 
for distribution transformers 


used by VMAXTR as switch to skip 
computation of peaks and of fre- 
quency of B(7,I) for distribution 
transformers during a two-phase 
(A and B) or a three-phase (A, B 
and C) or a line-to-line (A to B) 
fault on secondary of distribu- 
tion transformers 


used by VMAXTR as switch to skip 
computation of peaks and of fre- 
quency of B(8,I) for distribution 
transformers during a three-phase 
(A, B and C) fault on secondary 
of distribution transformers 


same as G(20,I) but for B(9,I) 
for distribution transformers 





86 
L Array (in COMMON, Dimension: 13⁄4) 


Fortran Description Units Algebraic 
L(1) number of generating units 
L(2) number of motor-generator sets 
L(3) number of induction motors 
L(4) number of distribution 
transformers 
(5) if L(5) 0, the commercial power 


system is connected to the power 
plant; otherwise, it is not 


L(6) not used 


L(7) describe type of fault on main bus 
«1, no fault 
+], single phase (a) fault 
=2, two-phase (a and b) fault 
=3, three-phase (a, b and c) fault 
#4, line-to-line (a to b) fault 


L(8) describe type of fault at 
primary side of commercial power 
interconnection transformer 


L (9) frequency of output from PRINT2 
in terms of integrating steps 
L (10) frequency of output from PLT2 
in terms of integrating steps 
L (11) used by SAT and SATEF for field 
to saturation effects of synchronous 
L(25) machines connected to main bus 
21, corresponding machine is not 
saturated 
22, corresponding machine is 
saturated 
L (26) 
to not used 
L (30) 
L (31) total number of dependent 
variables 
1052) used by SUB2 as switch to call 


INITIA 
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Fortran Description Units Algebraic 
L (33) used as switch to bypass YPRIM2; 
switch is set in SUB2 
L(34) used as switch for calling 
PRINT2 from SUB2 
L(35) used as switch for calling PLT2 
from SUB2 
L (36) used as switch in SUB2 to back- 


step and integrate to zero 
current if necessary, when a 
component is being removed from 
main bus or a generator from the 
buses of the MG sets: switch is 
set in SWITCH and DISCAN 


L(37) used as switch in SWITCH in con- 
junction with backstepping to 
integrate to zero phase-a-current 
when a component is being removed 
from the main bus 


L(38) same as L(37) but for phase-b- 
current 

L(39) same as L(37) but for phase-c- 
current 

L(40) used as switch set by SWITCH: if 


L(40) is greater than zero, phase 
a of component being removed from 
main bus has been disconnected 
from main bus 


L(41) same as L(40) but for phase b 

L(42) same as L(40) but for phase c 

L (43) identifies component being 
removed from main bus 

L(44) number of records written by 
PLOT2 

L(45) number of words per record 


written by PLT2 


L(46) used by VMAX as initializing 
switch 
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Fortran Description Units Algebraic 
L(47) not used 
L(48) not used 
L(49) number of input data cards with 
instructions for PL@T2 
L(50) number of input data cards with 
instructions for PRINT2 
І (51) specify first entry in Y Array 
to of dependent variables of each 
L(86) component 
L (87) used by SATG and SATEFG for 
to field saturation effects of gen- 
L(95) erators of MG sets 
L(96) 
to not used 
L(99) 
L(100) specify type of components 
to =1, for generating units 
L(134) =2, for motor-generator sets 


=3, for induction motors 
=4, for distribution transformers 





Y Array (in COMMON, Dimension: 516) 
Generators of Generating Units 


Fortran 


Y(J) 

Y (J+1) 
у (Ј+2) 
Y (J+3) 
Y (3+4) 
Y(J*5) 


Y(J*6) 


Y(J*7) 


Y(J*8) 


Y(J+9) 


Y (J+10) 


Description 


instantaneous current of phase-a 
stator winding 


instantaneous current of phase-b 
stator winding 


instantaneous current of phase-c 
stator winding 


instantaneous current of field 
winding 


current of direct amortisseur 
winding 


current of quadrature amortisseur 


winding 


electrical angle of axis of field 


winding with respect to axis of 
phase-a stator winding, measured 
in direction of rotor's rotation 


output voltage of regulator 
amplifier 


time integral, from time 0 to 
time t, of output voltage of 
feedback network in repulator 


output voltage of quadratic 
filter in terminal-voltage feed- 
back loop of regulator 


time derivative of Y(J+9) 


Motor-Generator Sets 


Y(J) 


Y (J+1) 


Motors 


instantaneous current of phase-a 
stator winding 


instantaneous current of phase-b 
stator winding 


Units 


rad 


volt 


volt-sec 


volt 


volt/sec 


amp 


89 


Algebraic 





Fortran Description 

Y(J+2) instantaneous current of phase-c 
stator winding 

Y (3+3) instantaneous current of field 
winding 

Y(J*4) current of direct amortisseur 
winding 

Y(J*5) current of quadrature amortisseur 
winding 

Y(J*6) electrical angle of axis of field 


winding with respect to axis of 
phase-a stator winding, measured 
in direction of rotor's rotation 


Y(J*7) mechanical speed of rotor 
Generators 

Y(J*8) instantaneous current of phase-a 
stator winding 

Y(J*9) instantaneous current of phase-b 
stator winding 

Y (3+10) instantaneous current of phase-c 
stator winding 

Y(J*11) instantaneous current of field 
winding 

Y(J*12) current of direct amortisseur 
winding 

Y(J*13) current of quadrature amortisseur 
winding 


Y(J*14) electrical angle of axis of field 
| winding with respect to axis of 
phase-a stator winding, measured 

in direction of rotor's rotation 


Y(J+15) output voltage of regulator 
amplifier 
Y (J+16) time integral, from time 0 to 


time t, of output voltage of 
feedback network in regulator 
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Units Algebraic 


amp і. 
атр le 
amp 11 
amp і 
rad Ө 
rad/sec ш 
amp 14 
amp 1, 
amp 1C 
amp 16 
атр 14 
amp la 
rad 0 
V01L e; 


volt-sec 6, 





Fortran 


Y(J+17) 


Y(J+18) 


Description 


output voltage from quadratic 
filter in terminal-voltage feed- 
back loop of regulator 


time derivative of Y(J+17) 


Induction Motors 


Y(J) 

Y(J*1) 
Y(J*2) 
Y(J*5) 
Y(J*4) 


Y(J*5) 


Y(J*6) 


instantaneous current of phase-a 
stator winding 


instantaneous current of phase-b 
stator winding 


instantaneous current of phase-c 
stator winding 


instantaneous current of a rotor 
winding 


instantaneous current of 8 rotor 
winding 


electrical angle of axis of a 
rotor winding with respect to 
axis of phase-a stator winding, 
measured in direction of rotor's 
rotation 


mechanical speed of rotor 


Distribution Transformers 


Y(J) 


Y(J*1) 


Y(J*2) 


instantaneous current of phase-A 
secondary winding 


instantaneous current of phase-B 
secondary winding 


instantaneous current of phase-C 
secondary winding 


Commercial Power System 


Y(J) 


Y(J*1) 


instantaneous current to phase a 
of main bus 


instantaneous current to phase b 
of main bus 


Units 


volt 


volt/sec 


rad 


rad/sec 
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Algebraic 


2 


е", 





92 


Fortran Description Units Algebraic 
Y(J*2) instantaneous current to phase c 
of main bus amp i 
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APPENDIX C 


FORTRAN LISTING OF MAIN SPEED AND MAIN TORQUE AND SUB2 PROGRAMS 


(pages 94 to 176) 





SUBROUTINE SPEED 


MAIN PROGRAM WITH CONSTANT SPEED MODELS FOR PRIME MOVERS OF GENE- 


RATING UNITS. 
COMMON DSUB2 
DIMENSION DSUB2(13271) 


DIMENSION SP(10)+»TOR(10)»XLOAD(10)+TITLE (13) 


995 FORMAT (15) 
996 FORMAT (1346) 


997 FORMAT (1H1»47HINPUT DATA FOR PRIME MOVERS OF GENERATING UNITS//1H 


1913А6) 
998 FORMAT (2E10.3) 
999 FORMAT (1H0»+6HSPEED=,F8.4/1H 
ВЕАП (5,995) N 
2 READ (5.5996) TITLE 
WRITE (60997) TITLE 
ВЕАО (5,998) ХТ.5РЕ 
WRITE (6 6999) SPE e XT 
CALL INPUT2 
DO 1 1=1,10 
1 SP(I)=SPE 
Х=0.0 


9 1 6бНОИРАТТОМ ОР ВУМ№=,РВ.4»,4Н SEC) 


CALL SUB2(X»+»SP»TOR»XLOAD+FReNT) 


CALL PRINT2 
ХхХТ 


CALL SUB2(XeSPeTOReXLOADoFReNT ) 


CALL PRINT2 

CALL PRINTO 

CALL TAPE2 

NzN-1 

ІҒ (№) 393.2 
3 CALL EXIT 

END 
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5 0001 
5 0002 


поло лл оло лоо о л ло UN UN LU UN UM MU MUNDI UM Mu (სი 
ლ 
ლ 
= 
თ 





OOO OO 
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SUBROUTINE TORQUE 


MAIN PROGRAM WITH CONSTANT TORQUE MODELS FOR PRIME MOVERS OF GENE- T 0001 

RATING UNITS. T 0002 

SUBROUTINES RNGKTA AND YPRIME INTEGRATE THE EQUATIONS OF MOTION OF T 0003 

THE SHAFTS OF THE GENERATING UNITS USING CONSTANT MECHANICAL TOR- T 0004 

QUE. THE DEPENDENT VARIABLES ARE THE SHAFT SPEEDS. T 0005 

COMMON DSUB2 T 0006 
DIMENSION DSUB2 (13271) T 0007 

COMMON XeYoF eQeAeBoeCoLl T 0008 

DIMENSION Y(10) oF (10) 9Q(10) 9A(10) 8 (20) С (2) •1 (2) T 0009 

DIMENSION SP(10) eT02(10) »XLOAD(10) sTITLE (13) T 0010 

100 FORMAT(IS) T 0011 

101 FORMAT (1346) T 0012 

102 FORMAT(IS»2E10.4) T 0013 

103 FORMAT(3E10.4) Т 0014 

104 FORMAT (1H1s47HINPUT DATA FOR PRIME MOVERS OF GENERATING UNITS//1H Т 0015 

1 913А6) Т 0016 

105 FORMAT (1H097XsSHSPEEDs 10X s6HTORQUE 910Xs7HINERTIA/) T 0017 

106 FORMAT (3(3XsE13.6)) T 0018 

107 FORMAT (1H0»+17HINTEGRATING STEP=>F7.4+4H SEC/1H »16HDURATION OF RUN T 0019 

1z2,F8.4,4H SEC) T 0020 

READ (59100) М T 0021 

] READ (55101) TITLE T 0022 

WRITE (65104) TITLE T 0023 

READ (59102) L(1)9C (1) sC(2) T 0024 

L1=L (1) T 0025 

00 2 I=1აL) T 0026 

2 READ (5,9103) Y(I)sB(I),A(1I) T 0027 

WRITE (6,105) T 0028 

DO 3 I=1»L1 T 0029 

3 WRITE (6,106) Ү(1)»В(1)5А(1) Т 0030 

WRITE (6,107) C(1),C(2) T 0031 

CALL INPUT2 T 0032 

DO 4 I=leLl T 0033 

4 SP(I)=Y(I) Т 0034 

L(2)20 T 0036 

CALL SUB2(X»SP»>»TOR+XLOADI+FRINT) T 0037 

L(1)=NT Т 0038 

CALL PRINT2 T 0039 

S IF (X-C(2)) 6910910 T 0040 

6 ІҒ(Х-С(2)»С(1)) 89797 T 0041 

7 C(1)=C(2)—X T 0042 

IDX=2 T 0043 

GO TO 9 Т 0044 

8 10Х:1 T 0045 

9 CALL RNGKTA Т 00456 

GO TO (5,10) IDX Т 0047 

10 L1=L(1) T 0048 

00 11 1=1» 1 T 0049 

11 БР(1)=У (1) T 0050 

CALL SUB2(X»SP>TOR+XLOADIFRINT) Т 0051 

CALL PRINT2 T 0052 

CALL PRINTO T 0053 

CALL TAPF2 T 0054 

N=N=1 T 0055 

IF(N) 1291291 T 0056 

12 CALL EXIT T 0057 

END T 0058 





SUBROUTINE RNGKTA 
INTEGRATION SCHEME FOR SHAFT SPEEDS OF GENERATING UNITS--GILL PRO- 
CEDURE OF THE FOURTH ORDER RUNGE-KUTTA METHOD. 
COMMON DSUB2 

DIMENSION DSUB2(13271) 
COMMON X»+Y+F 109 A+Bo+CoL 
DIMENSION Y(10)9+F(10)+Q(10)+A4(10)9+B(20)9+C (2) 9L (2) 
N=L (1) 

IF(L(2)) 469691 

L(2)=10 

DO 3 I=1+N 

Q(1)=0.0 

H=C (1) 

HH=.5*H 

CALL YPRIME 

00 5 I=19M 

S=F (I)*H 

T2.5*(S-2.*Q(I)) 
Y(I)=Y(I)*T 

О(1)-0( 1)»3.%Т-.5%5 
X=X¢HH 

CALL YPRIME 

DO 6 I=1+N 

SzF (I)*H 
Т:,292893229(5-0(1)) 
У(1)=У (1) +1 
0(1)50(1)3,21Т -.29289322%$ 
CALL YPRIME 

DO 7 I=1+N 

S=F (1) *H 
1=1.7071067% (5-0 (1) ) 
Y(1)=Y(1)+.1 
Q(1)=0(1)+3.,*T1-1.707106*S 
X=X +. HH 

CALL YPRIME 

DO 8 I=leN 

S=F (I) #H 

Tz(S-2.*Q0(I))/6. 
Y(I)=Y(I)+*T 
Q(1)=Q(I)+3.#T-.S*S 
RETURN 

END 
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SUBROUTINE YPRIME 

EVALUATION OF DERIVATIVES OF SHAFT SPEEDS OF GENERATING UNITS. 
COMMON 05082 

DIMENSION DSUB2 (13271) 

COMMON XeVoF eQeAeBeCoLl 

DIMENSION Y(10) oF (10) 90010) 6A(10) 98 (20) oC (2) ol (2) 
DIMENSION SP(10) eTOR(10) eXLOAD(10) 

L1=L (1) 

бо 10 151411 

ОР(1) = Y(I) 

CALL SUB2(XsSPsTORsXLOADeFReNT) 

L(1)=NT 

L1=L (1) 

00 20 151511 

B(1+10) = TOR(I) 

F(1)=32.174*(B(1)-B(1+10))/A(1) 

RETURN 

END 


97 


Ү 0000 
Ү 0001 
Ү 0002 
0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 


< < < < < < < < < < < < < —< 





O, O O O G O G G O G G GO O O 00 


11 
12 


500 
510 


98 


SUBROUTINE SUB2(1XA»+SP»>»TORI+XLOADIFRINS) 01 0000 
SUBROUT INES SUB2»+INPUT2+SETF+SETI+>PRINT29PLOT29TAPE2+PRINTO» 01 0001 
INITIA»RNGKT2»SWITCH»DISCON»VMAX» VMAXGB» TRAN» VMAXTR»DUPLEX»VMAXDR» 01 0002 
YPRIM2+LMAT»IMAT»SAT»SATEF+RLMB»XLMAT»TRIAS»CDMACH»CDTRANsCDCOMP» 01 0003 


CDDR»MBSOLV»FMACH»FTRAN»FCOMP»FDR»FREG»YPRIMG»LMATG» IMATG»SATG» 01 0004 
SATEFG+RLGB»+XMMAT+TRIAG+GBMAT+GBSOLV+FGEN+FREGG+FMECH AND TORIM 01 0005 
CONSTITUTE A SUBSYSTEM(SUB2) OF THE OVERALL POWER PLANT. 01 0006 
THEY HAVE THE SAME COMMON, EXCEPT FOR SETF AND SETI WHICH HAVE NO 01 0007 
COMMON. 01 0008 
THEY HANDLE ALL COMPONENTS OF THE POWER PLANT EXCEPT THE PRIME MO- 01 0009 
VERS OF THE GENERATING UNITS AND THEIR FUEL CONTROLS. 01 0010 
FOR GIVEN SHAFT SPEEDS(SP) OF THE GENERATING UNITS» INTEGRATE THE 01 0011 
EQUATIONS OF SUB? FROM SUB? TIME X TO MAIN TIME XA. 01 0012 


AT TIME XA» TRANSFER TO MAIN THE EM TORQUES(TOR) AND THE AVERAGE 01 0013 
THREE-PHASE POWERS(LOAD) OF THE GENERATING UNITS» AND THE FREQUEN- 01 0014 
CY(FR) OF THE MAIN BUS. THE NUMBER OF GENERATING UNITS CONNECTED 01 0015 


TO THE MAIN BUS AT TIME XA IS NS. 01 0016 
СОММОМ А»В»В0»С>»СО»П>»ЭЕС»ЕР»Ғ» б» ОВ» 09 УУ» 0» Х9Х( ХМ»9Ү»791>2161916291063 01 0017 
191 Р1 1 Р251 РЗ. ТІТІ Е» НЕАО 01 0018 


DIMENSION A(80935) 98 (99935) • ВО (8) •С (50) • Ср (394) »0 (120) •Еб (50) »ЕР (501 0019 
10) oF (316) 96(21 935) 96B(3 9499) »0 (316) » УУ (21,9) М (69699) oXL (6910235) 901 0020 
2XM (691099) s¥ (316) 92 (696935) ob (134) o LG1 (50) 9 LG2(50) 9LG3(S50) oLP1(50)01 0021 


JyLP2 (500) 5LP3(50) S TITLE(39) HEAD (39) 01 0022 
DIMENSION SP(10)*TOR(10)*XLOAD(10) 01 0023 
IF (L(32)) 291>2 01 0024 
CALL INITIA 01 0025 
L(32)=10 01 0026 
NS=L (1) 01 0027 
NT=L (1) +L (2) +L (3) 01 0028 
IF (NS.LE.0) GO TO 401 01 0029 
TO 3--. COMPUTE THE ELECTRICAL SPEEDS AND THE PERCENT SPEED ERRORS 01 0030 
OF THE GENERATING UNITS. 01 0031 
DO 3 I=1+NS 01 0032 
B(5»1)=A(15+1)*SP (1) 01 0033 
В(а.І) - 100.0%(8(5.,1)/377.0-1.0) 01 0034 
1151 01 0035 
IF (XA-X-0,001*C(1)0) 3253255 01 0036 
ТО 12--» INTEGRATE. 01 0037 
IF (XA-X-C(1)) 69697 01 0038 
0(31)=ХА-Х 01 0039 
10x=1 01 0040 
Go TO 11 01 0041 
D(31)=C(1) 01 0042 
ЇрХ-2 01 0043 
Sw=0.0 01 0044 
CALL RNGKT2 01 0045 
IF(SW.GT.0.0) GO TO 520 01 0046 
TO S20--s DISCONNECT COMPONENTS FROM THE MAIN BUS. 01 0047 
IF(L(4).LE-0) GO TO S10 01 0048 
N]=NT+1 01 0049 
N2=N1 +L (4) -1 01 0050 
DO S00 IzN1»N? 01 0051 
JzL (1+50) 01 0052 
B(lsI)z(YCJe2) Y CJ) ) /A(GG9 I 01 0053 
B(esI)z(YCJ) -YCJ*1)) /A(GG S ID 01 0054 
B(3,1)=(Y (J+1)-Y(J+2))/A(391) 01 0055 
CALL SWITCH 01 0056 
ISX=L (36) 01 0057 


GO TO (520»12)»15Х 01 0058 
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406 


101 


103 

20 
410 
402 


Sw=10.0 

Т0 530--» DISCONNECT GENERATORS FROM THE BUSES OF THE MG SETS. 
IF(L(2).LE.0) 60 TO 530 

CALL DISCON 

ISX=L (36) 

GO TO (530012) «ISX 

NT=L(1)+*+L(2)+*L (3) 

NS=L (1) 

IF(NT.LE.0) GO TO 409 

TO 18--.4 CONVERT THE ELECTRICAL ANGLES OF ROTATING MACHINES TO AN- 
GLES LESS THAN 2PI RADIANS. 

DO 18 I=1»NT 

LI=L(I+99) 

GO TO (14,13+15) »LI 

J=L (1 +50) 414 

IF(Y(J).6T.6.283185307) Y(J)=Y(J)-6.283185307 

J=L (1+50)+6 

GO TO 16 

J=L (1450) +5 

IF(Y(J3).6T.6.283185307) Y(J)=Y(J)-6,283185307 

CONTINUE 

TO 607-=+ COMPUTE THE PERCENT ERRORS OF THE PEAKS AND FREQUENCIES 
OF THE LINE-TO-LINE VOLTAGES AT VARIOUS POINTS OF THE POWER PLANT. 
CALL YPRIM2 

L(33)=10 

CALL VMAX 

IF(L(2).G6T.0) CALL VMAXGB 

IF ( L(4) LE». 0 ) GO TO 408 

CALL TRAN 

CALL VMAXTR 

IF(L(6) .LE.0) GO TO 407 

CALL DUPLEX 

CALL VMAXDR 

IF(L(34)) 21919921 

TO 402-=-, OUTPUT FROM PRINT2. 

L(34)=L (9)-1 

IPP=1 

IF(NT.LE.0) GO TO 410 

TO 2г0--, COMPUTE THE EM TORQUES OF GENERATING UNITS» AND THE AVE- 
RAGE 3-PHASE POWERS AND PEAK REACTIVE POWERS PER PHASE OF MOTORS. 
DO 20 Ігі»МТ 

4:1 (1950) 

J2=J+1 

J3=J2+1 

LI=L(1+99) 

GO TO (40644054405) ,LI 
B“—(161)=-0.001%#(D(35)*#*Y(J)+*D(36)#*Y(J2)*D(37)*Y(J3) ) 
B(2»1)2-1,9245E-4*(Y(J) *D(39) *Y(J2) *D(C 400) +Y(J3)*D(38)) 

00 ТО 20 

B(3,1)=(A(4+1)* (Y (J+3)-B(791)) +A (591) *Y (J94))*(Y(J)*B(2091)9Y(J2)* 


18(24%• 1) »у ()Ј3) 8 (22 +, 1) ) +» 4 (6, 1) ФУ ( Ј+5) # (У ( Ј) 8 (19» 1) "у (Ј2) В (23.1) +Ү 
2(J3)*B8(219,1)) 


IF(A(3s1)) 10391039101 
B(3,1)=B(3+1)-A(3+1)*(B(2691)*(Y(J)*Y(J)+2.04Y (13) *Y(12))+B(2891)% 


1 (У (22) “У(22) «г. 097 (2) Ў (23)) эВ (30; 1) “(Ў (23) “У (73) «2г.«097 (27) *?Y C200) 


В (39.1) =-0.737564#А (1591) +В (3,1) 
CONTINUE 

GO TO (402927936) +IPP 

CALL PRINT2 
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IP=1 

GO TO 22 

IP=2 

L(34)=L (34) -1 

IF (X = 0.2017) 29923323 
IF (L(35)) 28424928 

TO 27--.4 OUTPUT FROM PLOT2. 
L(35)=L (10)-1 

GO TO (27525) . ІР 

CONTINUE 

ЇРР-2 

60 ТО 404 

CALL PLOT2 

GO TO 29 

L(35)=L (35) -1 

GO TO (30531)»IDX 

L (33) x0 

60 TO (36434) IP 

II=2 

60 TO ^ 

GO TO (33430) sII 

ТО 36--, COMPUTE ALL THE VARIABLES OF SUB2 WHEN XA»X. 
CALL YPRIM2 

IF(L(4).GT.0) CALL TRAN 
IF(L(6).GT.0) CALL DUPLEX 
IPP=3 

GO TO 404 

CONTINUE 

ЇЕ (М5.1Е,0) 60 ТО 403 

TO 403--»* COMPUTE TOR» XLOAD AND FR. 
DO 37 I=1+NS 

ТОВ (1) =В (3.1) 
Х5ОАРр (1) -8(1»1) 

FR = 60.0*(D(2) + 1,0) 
RETURN 

END 
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SUBROUTINE INPUT2 02 0000 
READ INPUT DATA FOR SUB2 o2 0001 
ALL COMMON» EXCEPT TITLE AND HEAD» IS INITIALIZED TO ZERO BEFORE 02 0002 
DATA ARE READ. 02 0003 
DATA ARE CHECKED FOR ERRORS AS THEY ARE READ. THE RUN IS ABORTED 02 0004 
WITH THE FIRST ERROR FOUND» AND A COMMENT IS WRITTEN IN TAPE 6. 02 0005 
СОММОМ А»В»80»С» СО» П»ЕСб»ЕР»Ғ»б» GB» Qs VVsWoe Xo XL» XM» YesZsL Ss LGISsLG2»LG3 02 0006 
1sLP1 F LP2 6 LP3 TITLE sHEAD 02 0007 


DIMENSION А(80»35)В(99»,35).В0(8)»С (50) »СП (394) »0(120),ЕС(50)»ЕР(502 0008 
10) oF (316) 96(21 935) 96B (39499) 90(316) МУ (2199) 9W(69699) 9XL (6910935) 902 0009 
2XM (691099) s¥ (316) 92 (696935) 9b (134) 9 61(50) » (62 (50) +» (63(50) »(Р1(50) 02 0010 


3eLP2(50) +1 РЗ (50) TITLE (39) HEAD (39) 02 0011 
DIMENSION €E (6) 9N(10) »886(8) 02 0012 
DATA 8BB/1HXs+1HYs+1HF 3 1HL* 1HC» )HD* 1]HA» 1)HB/» 02 0013 

1N/1*316531651345505120»809»99535/, 02 0014 

2BR»BI»BP»BG/1IHR» IHI » IHP» IHG/ 02 0015 
FORMAT (1346) 02 0016 
FORMAT (1H1»19HINPUT DATA FOR SUB2//1H +13A6/1H 913A6/1H 1346) 02 0017 
FORMAT (1H 913A6/1H +13A6/1H »13A6) 02 0018 
ҒОРМАТ(А1»91Х%А1>9711»6Е10.4) 02 0019 
FORMAT(IH1»25HABNORMAL EXIT FROM INPUT2/9H BAD DATA/IH »Al»1XsAl»7 02 0020 

111) 02 0021 
ЕОВМАТОЇН «АТ1»1Х 5А1,1Н(, 13 1Н-941341Н)»6Х,6ЁЕ17-6) 02 0022 
FORMAT(1H МА1 1Х,А1 1Н(,1251Н-912»1Н»9121Н)»5Х,6Е17-6) 02 0023 
ҒОРМАТ (ІН УА1»1Х5А1 1Н(,13,1Н-»яч13«1Н)) 02 0024 
FORMAT (1H »Al»1X»Al»1IHt»I2»1H-»I2» IH» »I2» 11H) ) 02 0025 
FORMAT (1H19»6HOUTPUT//1H »1ЗА6/Ї1Н »13А6/1Н 913А6) 02 0026 
TwO LINES 00кмМ--494 INITIALIZE COMMON, 02 0027 
CALL SETF (A91275930.0) 02 0028 
CALL SETI (L943490) 02 0029 
M=0 02 0030 
K=0 02 0031 
бо 45 1=1•8 02 0032 
80(I) = BB(I) 02 0033 
READ (59100) TITLE 02 0034 
WRITE (69101) TITLE 02 0035 
READ (59100) HEAD 02 0036 
WRITE (69102) HEAD 02 0037 
READ (5103) C1»C2s11»12»13»14, 15» 16» 17sE 02 0038 
IF (Cl - BR) 394093 02 0039 
DO 4 I=198 02 0040 
11=1 02 0041 
ІР (С2- ВО (1) ) 4654 02 0042 
CONTINUE 02 9043 
BAD DATA, ABORT RUN. 02 0044 
WRITE (69104) C1+C2+11+12+13+14+159+169+17 02 0045 
CALL EXIT 02 0046 
GO TO (7797970797988) sII 02 0047 
K1=100*11+10*12+13 02 0048 
K2=100%*+15+10*16+17 02 0049 
K3=0 02 0050 
GO TO 10 02 0051 
K]=10*13+14 02 0052 
kK2=10*16+17 02 0053 
K3=10*11+12 02 0054 
IF (K3 - N(9)) 1091095 02 0055 
K4=K2-K1 +1 02 0056 
IF(K2-N(11)) 11591195 02 0057 
ЇЕ(К1) 55512 02 0058 
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33 
34 


35 


37 
38 


39 


#0 


IF (K2-K1) 5013013 
IF(C1-BI) 33914933 

IF (K4-6) 1591505 

бо ТО (16»16»16916,16916.28.28) 11 
WRITE (6,105) С1,»С2,К1,.К2,(Е(1),1:1,К9) 
GO TO (17+,18+20+22+24+26) 911 
Х=Е (1) 

GO TO 2 

DO 19 Izl,K4 

J=K1*I-1 

Y(J)=E(I) 

GO TO 2 

DO 21 I21»K^4 

JzKl*I-1 

F(J)=E (I) 

GO TO 2 

DO 23 I=1,k4 

J=K1+1-1 

L(J)=ÉE (1) 

GO TO 2 

00 25 1=1.К4 

J=K1+1-1 

C(J)=E (I) 

GO TO 2 

DO 27 I=l»K4 

J=K1+1I-1 

D(J)=E (I) 

GO TO 2 

WRITE (69106) C1+C2 s K1+K2 6 K3 6 (Е (1) » Iz19K4) 
ІҒ (11-7) 29,29,31 

DO 30 1=1,Ккё 

J*Kl*I-1 

A(JoK3)=E (1) 

GO TO 2 

DO 32 1-:1,К4 

J=K1+I-1 

B(J+K3)=E (1) 

GO TO 2 

IF(C1-BP) 35,34» 35 

М-М»1 

EP(M)=C2 

LP1(M)=K] 

LP2 (M) =K2 

LP3(M)=K3 

GO TO 37 

IF(C1-8BG) 553655 

K=K +1 

EG(K)=C2 

LG1 (K)=K1 

LG2 (K) =K2 

LG3(K)=K3 

ЇЕ (11 - 6) 38,38,39 
WRITE (64107) CleC2eKleK2 
GO TO 2 

WRITE (659108) C1+C2+K1+K29+K3 
GO TO 2 

L(50)=M 

L (49) =K 

WRITE (6+109) TITLE 


02 0104 
02 0105 
02 0106 
02 0107 
02 0108 
02 0109 
02 0110 
02 0111 
02 0112 
02 0113 
02 0114 
02 0115 
02 0116 
02 0117 
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RFTURN 02 0118 
END 02 0119 








10 


SUBROUTINE SETF, (Al+J+AK) 

SET J POSITIONS OF REAL ARRAY AI TO THE VALUE AK. 
DIMENSION AI(1) 

00 10 14:19 

AI(IJ) = AK 

CONTINUE 

RETURN 

END 


03 


03 
03 
03 
03 
03 
03 
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SUBROUTINE SETI(II 
SET J POSITIONS OF 
DIMENSION II(1) 

00 10 19:14 


1141.) = 
CONTINUE 
RETURN 
END 


K 


INTEGER ARRAY 11 TO THE VALUE К. 
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SUBROUTINE PRINT2 05 
OUTPUT FOR SUB2 ON TAPE 6. 05 
СОММОМ А%В»В0% С»СО»О>ЕС»ЕР»Ғ»б» О6В% 09 УУ»9 0» Х%Х( 9 ХМ» Ү»791>916191629163 05 
l»LP1»LP2+LP3»TITLE» HEAD 05 
DIMENSION A(80935) 08(99935) +B0 (8) +C (50) +CD(3+4)9+D(120)9+EG (50) + EP (505 
10)+F (316)+6(21+35)+GB(3+4+9)+Q(316)+VWV(21+9)+W(6+6+9)+XL (6910935)9+05 
2XM (691009) 9 ¥ (316) 92 (696935) oh (134) +» (61 (50) +» (602 (50) +163 (50) + (Р1(50) 05 


3eLP2(50) »LP3(50) sTITLE (39)  HEAD(39) 05 
FORMAT (1H0) 05 
ЕОВМАТ(ОЇН «А1 1Н(,131Н-9413,1Н).2Х,10(1РЕ12-9)) 05 
ҒОРМАТ (ІН «АТ 1Н(9121Н-9412,1Н,,121Н)»1Х»10(1РЕ12-9)) 05 
FORMAT(1H +A1ls+1H(+13+1H-+13+1H)92X+1016) 05 
М:1 (50) 05 
IF (M) 1991991 05 
WRITE (69100) 0S 
00 18 1:1,М 05 
DO 2 J=1»8 05 
4.54) 05 
IF(EPC(I) -BOCJ)) 253,2 05 
CONTINUE 05 
K1=LP1(1) 05 
K2=LP2(1) 05 
K3=LP3(1) 05 
IF (K2-K1) 189695 05 
IF(K2-K1-9) 65657 05 
K4=K2 0S 
GO ТО 8 05 
K4=K1+9 05 
GO TO (9+,10+11,12+13+14+15+16)JJ 05 
WRITE (69101) BO(JJ)+K1+K69X 05 
00 ТО 17 05 
WRITE (69101) BO(JJ) +K1+K69 (Y (J) + J=K19K4) 05 
GO TO 17 05 
WRITE (6.101) BO(JJ)+K1lo+K469 (F (JU) s J=K1 K&) 05 
GO TO 17 05 
WRITE (6+103) BO(JJ)»+Kl+K69s(L (J) 9 J=K1lK4) 05 
GO TO 17 05 
WRITE (65101) BO(JJ) sK1»K4* (CCJ) » JSK19K4) 05 
GO TO 17 05 
WRITE (6,101) BO(JJ)+K1+K69 (D(J) + J=K]9K4) 05 
GO TO 17 05 
WRITE (6+102) BO(JJ)+K1+K49kK39+(A(JoK3)9J=K19K4) 05 
GO TO 17 05 
WRITE (65102) BO(JJ) sK1»K6*K3» (BCJSK3) «s JEK1»K4) 05 
К1=Кк1 +10 05 
60 ТО 4 05 
CONTINUE 05 
RETURN 05 
END 05 
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0043 
0044 
0045 
0046 
0047 
0048 


C 


10 
11 
12 
13 
14, 
15 
16 
17 
18 


19 


20 


107 


SUBROUTINE PLOT2 06 0000 
OUTPUT FOR SUB2 ON TAPE г. 06 0001 
COMMON AsB5.»BO»C» CD» D*EGSEPSF»G« GBsQ* VV»s Wo Xs XLo XMs Ys ZOL*SLGI*LG2»LG3 06 0002 
lsLPI s LP2SLP3S TITLES HEAD 06 0003 


DIMENSION 4A(809+35)+B (99,35) +,80 (8) +» С (50) »С0 ( 3» +) +»+0 (120) »Еб(50) ,ЕР(506 000% 
10) oF (316) «G(21 935) 56GB (3,69) »0 (316) » УУ (2199) М (69699) .»ХІ (6, 10.35) +»06 0005 
гхм (6, 109), У (316) ,2 (6,6, 35) 1 (1394) +161 (50) + 602 (50) » (63(50) » (Р1 (50) 06 0006 


39LP2(50) »LP3(50) s TITLE (39) »HEAD(39) 06 0007 
DIMENSION P (50) 06 0008 
K=1 (49) 06 0009 
IF(K) 2092001 06 0010 
L (44) =| (44) +1 06 0011 
1=0 06 0012 
DO 19 J=],K 06 0013 
DO 2 Mz158 06 0014 
MM=M 06 0015 
IF(EG(J)-BO(M)) 293932 06 0016 
CONTINUE 06 0017 
К1:161(9) 06 0018 
K2=LG2 (J) 06 0019 
K3=LG3(J) 06 0020 
GO TO (4959799911913915917) «MM 06 0021 
I-I*1 06 0022 
P(I)=X 06 0023 
GO TO 19 06 0024 
DO 6 NzK1l»K?2 06 0025 
I-I*1 06 0026 
P(I)=Y(N) 06 0027 
GO TO 19 06 0028 
DO 8 N=K1 ,K2 06 0029 
I-I*1 06 0030 
P(I)=F (N) 06 0031 
GO TO 19 06 0032 
DO 10 N=KlsK2 06 0033 
IsI*1 06 0034 
P(I)=L (N) 06 0035 
GO TO 19 06 0036 
DO 12 N=K1 ,K2 06 0037 
1-191 06 0038 
P(I)=C(N) 06 0039 
GO TO 19 06 0040 
DO 14 N=K1sK2 06 0041 
I=] +) 06 0042 
Р(Т) =0 (М) 06 0943 
60 ТО 19 06 0044 
DO 16 N=K1 ,|K2 06 0045 
I=] +] 06 0046 
P(T)=A(NoK3) 06 0047 
GO TO 19 06 0048 
DO 18 N=K1 *K2 06 0049 
ІзІ%1 06 0050 
Р(Т)-В(М»кКЗЭ) 06 0051 
CONTINUE 06 0052 
L(&5)=I 06 0053 
WRITE (2) (P(J)»Jz15I) 06 0054 
RETURN 06 0055 


END 06 0056 





100 
101 
102 
103 
104 
105 
106 


108 


SUBROUTINE TAPE2 07 0000 
TRANSFER TO TAPES 6 AND 7 THE OUTPUT WRITTEN BY PLOT2 ON TAPE 2. 07 0001 
COMMON A+B>»B0»C>»CD+D»EG+EP+F+G>»GB»Q0+VV»W+X»XL»XMoYoZoL».LG19LG29LG3 07 0002 
l»LPl»LP2»LP3,TITLE»+HEAD 07 0003 
DIMENSION A(8B0+35)9+B(99+35)+B0(8)9+C(50)9CD(3+4)+D(120)»+EG (50) »EP (507 0004 
10) oF (316) 96(21 935) 968 (39499) 950(316) УУ(21»9) » М(6»96»9)Э»Хі (6»10»35)»07 0005 
2XM (691099) 9 VY (316) 9Z (696935) 9b (134) «LC1 (50) «LC2(50) »5LG3(50) »LP1(50)007 0006 


3eLP2 (50) »L P3(50) sTITLE (39) + HEAD (39) 07 0007 
DIMENSION P(50) 07 0008 
FORMAT (1H1»18HPRINTOUT OF TAPE 7/1H »+13A6/1H »13A5/1H »13A6) 07 0009 
FORMAT(1H +13A6/1H +13A6/1H »13A6) 07 0010 
FORMAT(1H +18HNUMBER OF RECORDS=»,14) 07 0011 
FORMAT (1H »7(1PE15,4) »216) 07 0012 
FORMAT (1346) 07 0013 
FORMAT (18HNUMBER OF RECORDS=314) 07 0014 
FORMAT (7(1PE10.3)+215) 07 0015 
IF(L(44)) 8.851 07 0016 
WRITE (69100) TITLE 07 0017 
WRITE (69101) HEAD 07 0018 
WPITE (69102) L (44) 07 0019 
WRITE (73104) TITLE 07 0020 
WRITE (79104) HEAD 07 0021 
WRITE (7,105) L(44) 07 0022 
REWIND 2 07 0023 
1121 (44) 07 0024 
KK=L (45) 07 0025 
DO 3 I=1+50 07 0026 
P(I) = 0.0 07 0027 
DO 7 1:1 411 07 0028 
READ(2) (P(K)+K=19KK) 07 0029 
J=1 07 0030 
К1=1 07 0031 
К2-7 07 0032 
WRITE (6»103) (Р(К),К-К1.К2)91».) 07 0033 
WRITE (79106) (P(K)+K=Kl+K2)»1.J 07 0034 
IF (K2-KK) 607097 07 0035 
Kl=Kl»7 07 0036 
K2=K2+7 07 0037 
J=J*1 07 0038 
GO TO 5 07 0039 
CONTINUE 07 0040 
RETURN 07 0041 


END 07 0042 





SUBROUTINE PRINTO 08 
WRITE ON TAPE 6 THE VALUES OF THE DEPENDENT AND OTHER VARIABLES OF 08 
5082. 08 
СОММОМ А,В»ВО»С.СО».О» ЁЕОС,ЕР.Е.,Сб,ОВ.О»УуУ»М»Х»Х УХМУҮү»2515310615102 5103 08 
191 Р19эГР2 | РЗ,ТЇТ ЕЁ,НЕАГП 08 


109 


0000 
0001 
0002 
0003 
0004 


DIMENSION A(80+35) +B (99,35) +80 (8) +C (50) ,CD(3+4)+D(120)»EG(50)+EP (508 0005 
10) «Ғ(З16)»6(21»35)»68(3»4»9)»0(316) УУ(21»99) » ЖМ(6+6+9) +» Х (6+10+ 35) +08 0006 
2XM (601099) 9 ¥ (316) 9Z (696935) oL (134) oLGl (50) •1 62 (50) 163 (50) ,іРІ (50)08 0007 


3.1 Р2 (50) +L P3(50) »s TITLE (39) »HEAD (39) 08 0008 

] FORMAT(1H1*47HVALUES OF OEPENDENT AND OTHER VARIABLES AT TIME,F9.4 08 0009 
1-4аН 5ЕС/ІН0) 08 0010 

2 FORMAT(1HO0»12H SET NUMBER »I2/7) 08 0011 
3 ҒОРМАТ(ІН »2НҮ(»13»3Н) =+E16.8) 08 0012 
11 FORMAT (1H0+24H COMMERCIAL POWER SYSTEM/) 08 0013 
14 FORMAT (ІН +2H8B(+12+1H+»+.12+2H)=>+E16.8/3H F(+13 08 0014 
1+2H)=»E16.8/) 08 0015 
16 FORMAT (1H0+47H DUPLEX REACTOR AND HIGH VOLTAGE POWER SUPPLIES/) 08 0016 
WRITE (6+1) X 08 0017 
NS=L (1) +L (2) +.L (3) +L (4) 08 0018 
N1=1 08 0019 
N2=0 08 0020 

IF ( NS .LE. 0 ) GO TO 111 08 0021 

DO 5 I=1+NS 08 0022 
WRITE (6,2) I 08 0023 
LI=L (1+99) 08 0024 

60 ТО (6.7.8.18) 91 08 0025 

6 N2=N2+11 08 0026 
J=14 08 0027 

49 - М1%8 08 0028 
WRITE (6,14) J»+1,»8B(J+1).399F (39) 08 0029 

GO TO 9 08 0030 

7 N2=N2+19 08 0031 
J9=N1+16 08 0032 
J=& 2 08 0033 
WRITE (6,14) ,)» І»8(.), 1І)»./9»Ғ(,)9) 08 0034 

GO TO 9 08 0035 

B N2=N2¢7 08 0036 
Go TO 9 08 0037 

18 N2=N2+3 08 0038 
9 DO 4 J=N1+N2 08 0039 
4 WRITE (6+3) JoY (J) 08 0040 
5 N1=N2+1 08 0041 
111 IF ( L(5) ) 13» 13» 10 08 0042 
10 WRITE (6511) 08 0043 
N2=N2+3 08 0044 

DO 12 J=N19+N2 08 0045 
12 WRITE (693) JeY (J) 08 0046 
13 IF (L(6).LE.0) GO TO 15 08 0047 
WPITE (6916) 08 0048 
N2=L (31) 08 0049 

DO 17 J=N19+N2 08 0050 

17 WRITE (69,3) J+Y(J) 08 0051 
15 RETURN 08 0052 
END 08 0053 





E 


SUBROUTINE INITIA 


INITIALIZE CERTAIN VARIABLES ANO CONSTANTS. 


09 
09 


COMMON AsBeBOsCeoCDeDsEGoEPoF sGeGBoQoVVoeWeXeoXLoXMesYVoZeLeLGleLGeslG3 09 


l»+LP1+LP29LP39TITLE+HEAD 


09 


110 


0000 
0001 
0002 
0003 


DIMENSION A(809+35) +B (99935) 9B0(8) 9C (50) 9CD(3+4)90(120) +EG (50) »+EP (509 0004 
10) oF (316) 96 (21935) 96B (39499) 0(316) » УУ (2199) 9W(69699) oXL (6910935) 909 0005 
2XM (691099) s¥ (316) 9Z (696935) of (134) oL Gl (S50) oL G2 (50) 35LG3(50) $LP1(50)09 0006 


39LP2(50) »LP3(50) sTITLE (39) sHEAD(39) 


REWIND 2 

NS=L (1) ¢L (2) ¢L (3) oL (4) 
L(34) = L(9)-1 

L(35) = L(10)-1 
L(31)x11*?L(1)2)*19*L (2) *79L (3) *3*L (4) 
IF(L(5).LE.0) GO TO 1 
L(31)2L (31) *3 

С (4551) = ((31) - 2 
IF(L(6).LE.0) GO TO 2 
С (31) =0 (31) +6 
IF(NS.LE.0) RETURN 
J=1 

DO 9 Izl+NS 

L(I+50) = J 

LI=L (1+99) 

GO TO (4+59+79+10)»LI 
A(36+,1)=B(1491) 
A(37+1)=F (J+8) 

J2J*11 

GO TO 6 
A(66901)=B(42e1) 
A(679+1)=F (J+16) 
J2J*19 

K=I-L (1) 

XM(696+K)=A (4091) 
W(4+649+K)=A(4291) 
W(S5+5+K)=A(4391) 
W(6»6+K)=A (4491) 

XL (6969 I) A(10^5 I) 
Z(4+94+1)=A(1291) 

2 (5-45.41) А(139»91) 
Z(6»6+1)=A(1491) 


60 ТО 9 

Х| (5-5 41) ZA(39I) 
2(1•1•1) = А(5+1) 
2(2•2+1) = А(5+1) 
2(3•%3•1) = А(5+1) 
7(6»9»!) = А(6+1) 
2(5»5»1)24А(6+1) 
J=J*T 

GO TO 9 

J2J*3 

CONTINUE 

RETURN 


END 


09 


09 
09 


09 0007 


0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 


09 0022 


0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 





БЕ 


SUBROUTINE RNGKT2 10 0000 
INTEGRATION SCHEME FOR THE DEPENDENT VARIABLES OF SUB2--GILL PRO- 10 0001 
CEDURE OF THE FOURTH ORDER RUNGE-KUTTA METHOD. 10 0002 
СОММОМ А»В»В0»С»СО»О>ЕСО»ЕР»Ғ»бС»6В»0»9УУ9М»Х»Х( ХМ»9Ү»9791>16191062>(03 10 0003 
1sLP1 |F LUPO SsLP3 TITLE HEAD 10 0004 


DIMENSION A(80535) 3R(99,35) $«BO(B)3C(50) 5 CD(3»4) 5D(120) ЕС(50) «ЕР(510 0005 
10) oF (316) 96(21935) 96B(39499) 0 (316) sVV(21 99) 9W(69699) oXL (6910935) 910 0006 
2XM (691099) s¥ (316) 9Z (696935) 9 (134) «LC1 (50) «LC2(50) «LC3(50) «L1(50) 10 0007 


3+LP2(50)»LP3(50)+TITLE(39)9HEAD(39) 10 0008 
N=L (31) 10 0009 
H=D (31) 10 0010 
HH=.5*H 10 0011 
CALL YPRIM2 10 0012 
00 5 I=19M 10 0013 
SzF(I)*H 10 0014 

z.5*(S-2.*Q(I)) 10 0015 
Y(I)=Y(I)+T 10 0016 
Q(1)=0 (1) +3.*T-,5*S 10 0017 
XzX*HH 10 0018 
CALL YPRIM2 10 0019 
DO 6 Ігі»М 10 0020 
S=F (1) #H 10 0021 
T=0 2292893219 (S-Q(1)) 10 0022 
Ү(1)Ү(1)»Т 10 0023 
0(1)-0(1)»3,.,2Т -0,29289321995 10 0024 
CALL YPRIM2 10 0025 
DO 7 I=1+8N 10 0026 
SzF (I) *H 10 0027 
T=1.707106781* (S-Q(1)) 10 0028 
Ү(1)-Ү(1) »Т 10 0029 
Q (1)=0 (1)+3.0*T-1.707106781*S 10 0030 
ХХ «НН 10 0031 
CALL YPRIM2 10 0032 
00 8 I=19M 10 0033 
S=F (1) #H 10 0034 
Т-(5-2.%0(1))/6. 10 0035 
Y(I)=Y(I)+*T 10 0036 
Q(I)=Q(I)+*3,*T-ü.S*S 10 0037 
RETURN 10 0038 


END 10 0039 





1I2 


SUBROUTINE SWITCH 11 0000 
DISCONNECT COMPONENTS FROM THE MAIN BUS PHASE-BY-PHASE WHEN THE 11 0001 
RESPECTIVE PHASE CURRENTS ARE ZERO. 11 0002 
COMMON A+B+BO+sC+CO)O + D 6 EGsEP FsG6GB QO VVeW Xs XL + XMs Ys ZeLSLGISUG29»LG3 11 0003 
l».LP1+LP29LP39TITLE+HEAD 11 0004 


DIMENSION A(809+35)9B(99+35) +B0(8)9C(50)+CD(3+4),D(120)+EG(50)»+EP (511 0005 
10) «Ғ(316)»6(21»35) 56B( 39499) 9Q(316) »VV(21»9) 5W(69699) +» XL( 6910535) »11 0006 
2XM(6+10+9)+Y(316)+Z(696+35) 9+L (134) +LG1 (50) +» (62 (50) » (63(50) + (Р1(50) 11 0007 
39LP2 (50) ›ЁЕРЗ (50) › ТТТЕЕ (39) о НЕАО (39) 1] 0008 


13 
15 


20 
25 


26 
ЕТ 


DIMENSION YYt316)+»QQ(316) »BB(3,35) 
IF(L(37).LE.0) GO TO 3 

L(37)=0 

DISCONNECT PHASE А. 

L(40)=10 

IF(I.6T.NS.OR<LI.NE.4) GO TO 50 
N=J+2 

Y(J)30.5* (YCJ) *Y (ND ) 
Q(J)=0.5*(0(3)+0(N)) 

Y(N)=Y (J) 

Q (N) =Q ( J) 

GO TO 55 

IF(L(38).LE.0) GO To 6 

L (38) =0 

DISCONNECT PHASE В. 

L(41)=10 

Е (Т.СТ. №5. ОР. ЕТ.МЁЕ.4) GO TO 50 
N=J-1 

GO TO 1 

IF(L(39).LE.0) GO TO 10 

L(39)=0 

DISCONNECT PHASE C, 

L(42)=10 

GO TO 4 

NSz-L (1)*L (22) +L (3) +L (4) 

TO 20--» DETERMINE COMPONENT TO BE DISCONNECTED. 
IF(NS.LE.0) GO TO 15 

DO 13 I=1»NS 

XD=A(209+1) 

(1 =Ё (1+ 99) 

ІҒ(11.Е0.3) ХО-сА(8,1) 

ІҒ(( І.Е0.4) XD=A(11,1) 

IF (XeLT-XD) GO TO 13 

L(43)=] 

GO TO 20 

CONTINUE 

IF(U(S).LE.0) GO TO 200 
IF(X.LT.C(46)) GO TO 200 

L (43) =NS¢] 

I=L (43) 

IF(L(40).6T.0) Go TO 35 

TO ABOVE 26--+ DETERMINE IF PHASE A SHOULD BE DISCONNECTED. 
J=L (1+50) 

PYsYCJ) *YY CJ) 

ЇЕ(1.1Ё ,М5.,АМО.(11.ЕО.4) РҮ-8(1 1) 2ВВ(191) 


К-1 
IF(PY) 265425435 
L(37) = 10 


ТО 30--, BACKSTEP TO INTEGRATE TO ZERO CURRENT, 
RY=YY(J)/(YY(J)-Y(J)) 


11 


0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 

0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 





30 


35 


38 


40 


45 


50 


ss 


60 


70 
80 


90 


ЇР (1.1 ЁЕ ,М5,АМО,.11.ЕО-.4) ВҮ-ВВ(К»,1)/(В88(К,1)-8(К,1)) 
Х=Х-0 (31) 

0 (31) =0 (31) +ВҮ 

L (36) =2 

NN=L (31) 

DO 30 N=1sNN 

Y (N) ZYY (N) 

Q (N) =QQ (N) 

RF TURN 

IF(L(&1).GT.0) GO TO 40 

TO ABOVE 38--s DETERMINE IF PHASE B SHOULD BE DISCONNECTED. 
4:1 (1950) 1 

PY=Y(J)*YY(J) 

IF(I.LENS.AND.LI.EN.A) PY=B(291)*BB(291) 


K=2 

IF (PY) 3855540 
L(38) = 10 

GO TO 27 


IF (L(42).G6T.0) GO TO 200 

TO ABOVE 45--5., DETERMINE IF PHASE C SHOULD BE DISCONNECTED. 
J=L (1+50)»+2 

PY=Y(J)*YY(J) 

ІҒ (І.Е. М5. АМО. І.Е0.4) РҮ=В (3.1) +ВВ (31) 

K=3 

IF (PY) 45994200 

L(39) = 10 

GO TO 27 

Y(J)=0.0 

Q(J)=0.0 

TO ABOVE 60--, DETEPMINE IF ALL PHASES ARE DISCONNECTED. 
IF (L(40) GTO AND L(41) GTO AND (| (42) .СТ.0) GO TO 60 
GO TO 25 

IF (L(40).GT.0.-AND.L(41).GT.0) GO TO 60 

IF (L (40) СТ. О, АМО+Ё (42) .СТ.0) GO TO 60 
IF(L(41).6GT.0.AND.L(42).6T.0) GO TO 60 

00 ТО 25 

ТО 180--, СОМРОМЕМТ НА5 ВЕЕМ DISCONNECTED. ADJUST VARIABLES AND 
SHIFT ARRAYS» ALSO» SHIFT INSTRUCTIONS FOR PLOT2. 
L(40)=0 

L(41)=0 

L(42)=0 

L(43)=0 

IF(I LENS) GO TO 70 

L(5)=0 

K=3 

IF(L(t6)) 16051605140 

GO TO (805,9051005110)»5LI 

L(1)=L(1)-1 

K=11 

GO TO 120 

L(2)=L (2)-1 

К-19 

IF(I.EQ.NS) GO TO 120 

J1=I-L (1) 

J2=L (2) 

IF(J1.GT.J2) GO TO 120 

DO 98 J=Jl+J2 

J3=J»+1 

DO 92 N=19+21 


113 


0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 





92 


94 
95 
96 
98 


100 


110 


120 


121 


122 


123 


124 
125 


126 
127 
128 


129 
130 


135 
140 


150 
160 


175 


180 


200 


VV{N»J)ZVV (N, J3) 

DO 96 М=1+6 

DO 94 N=1l9+6 

V (M9M9.)) =V (M9M9.)3) 

00 95 M=1«10 

XM (MeNo J) =XM(MoNo J3) 
CONTINUE 

CONTINUE 

GO TO 120 

L(3)=L (3)-1 

КЕ? 

GO TO 120 

1 (4) =1 (4) =] 

K=3 

IF(I.EQ.NS) GO TO 130 
Jl=I 

J2=NS=1 

DO 129 31:51,42 

J3=J+1 

DO 121 M=1»80 

А (Мо.}) =А(Мо.}3) 

DO 122 M=1+99 

8 (M«.))=8(M9.)3) 
IF(L(J+99).EQ.4) GO TO 126 
DO 125 M=196 

00 123 Мг1»6 
7(М9М» 33-7 (М»М,,3) 

DO 124 Nz1510 

XL (MsN» J) XL (M»N» J3) 
CONTINUE 

GO TO 128 

DO 127 M=14–2) 
G(Ms+J)=G (M9 J3) 
L(J+99)=L (J3+99) 
L(J+50)=L (13+50)-K 
CONTINUE 

IF(L(S).GT.0) GO TO 135 
IF(I-NS) 140531603140 

L (NS*50) zL (NS*51) -K 
Ј1=0(1•50) •к 

J2=L (31) 

DO 150 .)=.)1«.)2 

M=J-K 

Y (M)=Y (3) 

Q (M)=0 (3) 

1 (31) 51(31)-К 

J1=L (49) 

DO 180 J=leJl 

IF (EG( J) -EQ.B0(2) -ORe-EG(J) -EQ.B0(3)) GO TO 175 
IF (EG( J) „ь МЕ. ВО(7) ь АМО. ЕС(Ј) „МЕ. ВО (8) ) GO TO 180 
IF(LG3(J3).GT.1) LG3(J3)=L6G63(J)-1 
GO TO 180 

IF (LG1(J3).LE.(L(1+S50)+K)) GO TO 180 
LG1 (J) =LG1]1 (J) -K 

LG2 (3) =LG2(J) -K 
CONTINUE 


ТО 220--, STORE THE PRESENT VALUES OF THE Y AND Q ARRAYS AND OF 
THE CURRENTS OF THE DISTRIBUTION TRANSFORMES TO THE MAIN BUS. 


L(36)=1 


114 


0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 


11 0141 


0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 


11 0151 


0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 


11 0164 


0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 





210 


220 


NN=L (31) 

DO 210 N=1»NN 

YY (N)=Y(N) 

QQ (N) =Q (N) 

IF (L(4).LE.0) RETURN 
J1=1 (1)+L (2) +L (3) +1 
Jà2J1*L (4) -1 

DO 220 N=J1»J2 
ВВ(1»М)-В(1»М) 
ВВ(2»9М)-В(2»М) 

ВВ (З.М) ЗВ (З.М) 
RFTURN 

END 
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0186 
0187 
0188 
0189 
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SUBROUTINE DISCON 12 0000 
DISCONNECT GENERATORS FROM THE BUSES OF THE MG SETS WHEN THE RE- 12 0001 
SPECTIVE PHASE  CURRENTS ARE ZERO. 12 0002 
COMMON А.В.ВО»С,СО»О»ЕСОЕР Р .б»,ОВ,О» МУУ МУХУХ ,ХМ Үү» 23151061 5102 103 12 0003 
14 Р159| Р2» РЗ,ТЇТГ Е.,НЕАО 12 0004 


DIMENSION А(80»35) »8(99+ 35) +80 (8) С(50)С0(3%4) 90(120) 9EG(S0) sEP (S12 0005 
10) oF (316) 96(21¢35) 6B (39499) +»%0 (316) »VV(21»92) oW(69699) XL (6910935) 912 0006 
2XM (691099) + Ү(316) 9Z (696035) oh (134) » (01 (50) + (62 (50) +» (603(50) о (Р1(50) 12 0007 


39LP2(50)+LP3(50)>TITLE (39)  HEAD(39) 12 0008 
DIMENSION YY(316)+00 (316) 12 0009 
N1-L(1)*1 12 0010 
м2-м141(2)-1 12 0011 
І-М1 12 0012 
ІҒ(В(92,1).1Е.0.0) GO TO 4 12 0013 
В(92»1):0.0 12 0014 
K=1 12 0015 
DISCONNECT PHASE A, 12 0016 
B(95+K)=10.0 12 0017 
Y(J) 20.0 12 0018 
Q(J) 20.0 12 0019 
DETERMINE IF ALL PHASES ARE DISCONNECTED. 12 0020 
ЇЕ (В (95, К).1Е.0-0-0Р-8(96»К) 1 Е.0.0.08-8(97К)-1Е,0.0) GO TO 22 12 0021 
A(729K)=100.0 12 0022 
GO TO 60 12 0023 
ТЕ (8 (93,1) Ф(Е• 0,0) бо ТО 6 12 0024 
B(93+1)=0.0 12 0025 
К-1 12 0026 
DISCONNECT PHASE B. 12 0027 
B(96+K)=10.0 12 0028 
GO TO 3 12 0029 
ІҒ(В(94,1).1Е.0.0) GO TO 10 12 0030 
B(94+1)=0.0 12 0031 
K=I 12 0032 
DISCONNECT PHASE C. 12 0033 
B(97sK)=10.0 12 0034 
GO TO 3 12 0035 
IF(1.GE.N2) GO TO 11 12 0036 
I=I+1 12 0037 
Go TO 1 12 0038 
TO 20--s DETERMINE GENERATOR TO BE DISCONNECTED. 12 0039 
DO 13 I=M19M2 12 0040 
ІҒ(А(69,1).6Е.0.0) GO TO 13 12 0041 
IF (XeLTeA(72e1)) GO TO 13 12 0042 
KzI 12 0043 
GO ТО 20 12 0044 
CONTINUE 12 0045 
60 ТО 60 12 0046 
B(98 9K) =K 12 0047 
ЇЕ (В(95,К).Т.0.0) GO TO 35 12 0048 
TO 25--» DETERMINE IF PHASE A SHOULD BE DISCONNECTED. 12 0049 
J=L (K+50)+8 12 0050 
IF(Y(J)#YY(J)) 2692935 12 0051 
B(92+K)=10.0 12 0052 
TO ABOVE 35--» BACKSTEP TO INTEGRATE TO ZERO CURRENT. 12 0053 
XzX-D(31) 12 0054 
D(31)=D(31)*YY (3)/(YY (J)-Y(J)) 12 0055 
NT=L (31) 12 0056 
DO 30 I=1»NT 12 0057 


Y(1)=YY (1) 12 0058 





30 


35 


36 


38 


& 0 


48 
50 


60 


61 


Q (1) =00 (1) 

L(36)=2 

RETURN 

ТО 36--» DETERMINE IF PHASE 
J=L (K+50) +9 

IF(Y(J)*YY(J)) 38959640 
B(93,K)=10.0 

60 TO 27 

IF(B(97+K).GT.0.0) GO TO 60 
TO 48--» DETERMINE IF PHASE 
J=L (K+50)+10 

IF(YCJ) *YYCGCJ)) 5097,60 
B(94.»K)210.0 

GO TO 27 

STORE THE PRESENT VALUES OF 
NT=L (31) 

DO 61 I=1»NT 

YY(D=Y(D 

QQ (I)=Q(I) 

L(36)=1 

RETURN 

END 


B SHOULD BE DISCONNECTED. 


C SHOULD BE DISCONNECTED. 


THE Y AND Q ARRAYS. 
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SUBROUTINE VMAX 13 0000 
COMPUTE THE PERCENT ERRORS OF THE PEAKS AND FREQUENCIES OF THE 13 0001 
LINE-TO-LINE VOLTAGES OF THE MAIN BUS. 13 0002 
COMMON А»В»В0»С» СО» О>ЕС»ЕР»Ғ» б» О8» 0«УУ» М» Х9Х( 9 ХМ»9Ү»7»91(>161>9162>1063 13 0003 
l1»LP1l»LP2,LP3,TITLE,HEAD 13 0004 


DIMENSION A(80+35)9+B(999+35) ,B0(8)+C(50)9CD(3+4)9D(120)»EG(50)+EP (513 0005 
10) «Ғ(З16)»6(21935)»068(3»4»9) » 0(316) УУ(21»9) »М(6»96»99)»Х1 (6»10»935)»913 0006 
2хм(6+10»9)»у(316)»2(69%6+,35) + ( (136) +» (61 (50) +» (602 (50) +» (63(50) +» (Р1(50)13 0007 


З•(Рг(50)• (РЗ(50) » TITLE(39) HEAD(39) 13 0008 
DIMENSION V(21) 13 0009 
TO ABOVE 16--»+ SET CONTROLS FOR SPECIAL COMPUTATIONS DURING BUS 13 0010 
FAULTS. 13 0011 
IF (X - C(9)) 161,1 13 0012 
IF (X - C(9) = D(31)) 29298 13 0013 
IF (L(7)) 1691693 13 0014 
IF (LIND = 3) 49597 13 0015 
IF (L(7) = 2) 169797 13 0016 
V(21) = 10.0 13 0017 
V(20) = 10.0 13 0018 
V(19) = 10.0 13 0019 
GO TO 16 13 0020 
IF (X = C(10)) 169999 13 0021 
IF (X - C(10) - D(31)) 10510516 13 0022 
IF (L(7)) 16516911 13 0023 
IF (L(7) - 3) 12913515 13 0024 
IF (L(7) = 2) 16915615 13 0025 
L(46) = 0 13 0026 
GO TO 16 13 0027 
V(13) = 0.0 13 0028 
V(16) = 0.0 13 0029 
V(19) = 0.0 13 0030 
V(6) = 0.0 13 0031 
IF (L(46)) 17917919 13 0032 
TO 18--. SET THE ARRAY V TO ZERO. 13 0033 
L(46) = 10 13 0034 
00 18 1=1,21 13 0035 
V(1) = 0.0 13 0036 
IF (0631) – 0,1%С(1))  37+20»20 13 0037 
TO 21--» TRANSFER POINTS. 13 0038 
V(1) = v(2) 13 0039 
V(2) = V(3) 13 0040 
V(4) = У(5) 13 0041 
V(5) - V(6) 13 0042 
V(T) = V(8) 13 0043 
V(8) = V(9) 13 0044 
V(10) = V(11) 13 0045 
V(11) = Vile) 13 0046 
V(3) = X 13 0047 
V(6) = D(38) 13 0048 
V(9) = D(39) 13 0049 
V(12) = D(40) 13 0050 
00 35 1=1,3 13 0051 
IF (V(I*18)) 23923322 13 0052 
TO ABOVE 23--» SPECIAL COMPUTATIONS DURING BUS FAULTS. 13 0053 
Ј = 291 + 5 13 0054 
D(J) = -100.0 13 0055 
D(J+1) = -100.0 13 0056 
D(1+12) = -100.0 13 0057 


GO TO 35 13 0058 





23 


29 


30 


31 


32 


2 


33 


34 


35 


36 


37 


J = 3%I + 3 
J1=J-1 


TO 29--. COMPUTATION OF PERCENT FREQUENCY ERRORS. 


IF (V(J)) 252924925 

XE = V(3) 

GO TO 27 

IF(V(J)*V(J1)) 26930930 


ХЕ = V(2) = V(J1)%(V(3) = V(2))/ (VJ) 


J2 = I + 12 

IF (V(J2)) 29,29,28 
D(J2) = 0.5/ (XE - V(J2)) 
D(2) = D(J2)/0.6 - 100.0 


TO 35==, COMPUTATION OF PERCENT ERRORS OF PEAKS. 


D(J2) = D(2) 
V(J2) = XE 
Je = 1 + 15 


V(J2) = V(J2) + 1.20 
IF (V(J2)- 3.0) 35531931 
Је = Ј = е2е 


IF ((V(J1) - V(tJ2)) *(VCJ1) -VCJ) 0) 


Ww] = V(J2)* (V(3) - V(2)) 


W2 = V(J1)*(V(1) - V(3)) 
W3 = V(J)* (V(2) - V(1)) 
ТЕІ = W1* (V(3)+V(2)) 

TE2 = W2* (V(1)+V(3)) 

ТЕЗ = W3*(V(2)+V(1)) 

ТЕ4 = Wl+W2+W3 


ХЕ = 0.5* (TE1+TE2+TE3)/TE4 


YE = V(J2)8(XE = V(2))8(XE - V(3))/(V (1) 
1,VC€ JI) * (XE – V(1))%(Xნ – у(3))/(У(2)- V(1))/(V(2)-V(3)) 
(ХЕ = V(C1))* (XE = vVt20))/(V(3) 


IF(YE-VCJ)) 33934934 

J = 2*1+6 

0(1) =-100.0%(УЕ/С(?) + 1.0) 
D(J) = D(1) 

GO TO 35 

o#I + 5‏ = ل 

0(1) = 100.0*(YE/C(2) - 1.0) 
D(J) = D(1) 

CONTINUE 

IF (V(21)) 37937936 


SPECIAL COMPUTATION DURING THREE PHASE BUS FAULT. 


D(1) = -100.0 
D(2) = -100.0 
RETURN 


END 


= V(2))/(V(1) 


- V(Q1))/q«(v (3) -V(2)) 


1198 


0059 
00რ0 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
9102 
0103 
0104 





лғ 


ч 


12 
13 


15 


16 


18 


19 


20 


21 


23 


120 


SUBROUTINE VMAXGB 14 0000 
COMPUTE THE PERCENT ERRORS OF THE PEAKS AND FREQUENCIES OF THE 14 0001 
LINE-TO-LINE VOLTAGES OF THE BUSES OF THE MG SETS. 14 0002 
COMMON A»B»BO»+C+CD+D+EG»EP»F+G+GB»Q» VVr Wo X» XL» XM+ Y+ ZıL»+»L6G1»+L62+L63 14 0003 
l»+LP1+LP29LPI+TITLE+HEAD 14 0004 


DIMENSION A(809+35) +B(99+35)+B0(8)+C (50) +CD(3+4)+D(120) +EG1(S0) +EP(S14 0005 
10)+F(316)+6(21+35)+GB(3+4+9)+Q0(316)+.VV(21+9) .W(6+6+9)+XL(6+10+35)+14 0006 
2XM(6+10+9) .Y(316) ,Z(6+6+35) »| (134) +161 (50) +.LG2(S0)+LG63(S0)+LP1(S0)14 0007 


3eLP2(50) sLP3(50) s TITLE (39) + HEAD (39) 14 0008 
L2=L (2) 14 0009 
DO 100 K=1»L2 14 0010 
N=KeL (1) 14 0011 
IF(A(699N).LT.0.0) GO TO 100 14 0012 
IF(X.LT.A(7S»N)) GO TO 16 14 0013 
TO ABOVE 16--» SET CONTROLS FOR SPECIAL COMPUTATIONS DURING BUS 14 0014 
FAULTS. 14 001S 
М-ІҒІХ(А(77»М)%0.00000001) 14 0016 
IF(X.G6T.(A(75:N)+D(31))) GO TO 8 14 0017 
ІҒ(М.1Е.0) GO TO 16 14 0018 
ЇЕ(М-3) 4%»5,7 14 0019 
Iნ (M-2) 164747 14 0020 
VV (219K) =10.0 14 0021 
VV (200K) =10.0 14 0022 
VV (199K) =10.0 14 0023 
GO TO 16 14 0024 
IF(X.GT.-(A(769N)+D(31))) GO TO 16 14 0025 
IF(M.LE.0) GO TO 16 14 0026 
ЇЕ(М-3) 12»13,15 14 0027 
IF (M=2) 16915915 14 0028 
В(99,М):0.0 14 0029 
GO TO 16 14 0030 
УУ(13»К)-0.0 14 0031 
МУУ(16»К)-0.0 14 0032 
УУ(19»К)-0.0 14 0033 
МУ (6,К)20.0 14 0034 
IF(B(99,N).GT.0.0) GO TO 19 14 0035$ 
TO 18--. SET THE ARRAY VV TO ZERO. 1^ 0036 
DO 18 Mz1»21 14^ 0037 
VV(M+K)=0.0 14 0038 
В(994М)-10.0 14 0039 
ІР(0(31).17.(0.1%С(1))) GO TO 100 14 0040 
TO 21--» TRANSFER POINTS. 14 0041 
DO 20 M=1911 14 0042 
IF(M.EQ.3.OR.M.EQ.6.OR.M.EQ.9) GO TO 20 14 0043 
VV (M+K)=VYV (M+19K) 14 0044 
CONTINUE 14 0045 
VV (30K) =x 14 0046 
VV (69K) =B(779N) 14 0047 
VV (99K) =B(789N) 14 0048 
VV (120K) =B(79eN) 14 0049 
00 35 1=1,3 14 0050 
IF(VVtI»18+K) .LE.0.0) GO ТО 23 14 0051 
TO ABOVE 23--» SPECIAL COMPUTATIONS DURING BUS FAULTS. 14 0052 
J=2%] +63 14 0053 
B(J+N)=-100.0 14 0054 
B(J+1+N)=-100.0 14 0055 
В(1»70»М)--100.0 14 0056 
60 Т0 35 14 0057 
Ј=3%1+3 14 0058 





25 


27 


29 
30 


33 


34 
35 


100 


J12J-1 

TO 29--., COMPUTATION OF PERCENT FREQUENCY ERRORS. 

IF (VVCJSsK) ,NE.0.,0) GO TO 25 

XE=VV (30K) 

GO TO 27 

IF((VWV(J+K)*VV(J1l9K)).GE.0.0) GO TO 30 
XE=VWV(29K)-VV(Jl+K)*(VV(39K)-VWV(29K))/(VV(JoK)-VV(Jl+K)) 
J2=1+12 

IF(VV(J29K)+.LE.0.0) GO TO 29 
В(64жМ)--100.0%0.5/(0.6%(ХЕ-уу(,)2»К))) 

В(1»70»М) «<В(64»М) 

VV (J2 0K) =XE 

TO 35--.» COMPUTATION OF PERCENT ERRORS OF PEAKS. 

J2=1+15 

VV (J2 eK) =HVV(J29K) 41.0 

J2=J-2 
IF(((VV(Jl9+K)-VWV(J2+K))*(VV(Jl+K)-VV(JoK))).LT.0.0) GO TO 35 
W]=VV(J2+K)*(VWV(39K)-VV(29K)) 
W2=VWV(J1l+K)*(VV(1l+K)-VV(39K)) 
W3=VV(J+K)*(VV(29K)-VV(19K)) 

TEl1*W1* (VV (34K) eVV (26K) ) 

TE23W2* (VV (15K) *VV(G9K)0) 

TE3=W3* (VV (29K)+VV(19K)) 

TE4=W1+>W2+W3 

ХЕ-0.5%(ТЕ1%ТЕ2»ТЕЗ) /ТЕ4 

YE=VV (J29K)*(XE-VV(29K))*(XE-VV(39K))/(VV(19K)-VV(29K))/(VV(1l9K)- 
1VV(39K))+VV(J1l9+K)* (XE-VV(1l9K))* (XE-VV(39K))/(VWV(29+K)-=VV(19K))/(VV( 
229K)-VWV(39K))+VWV(J9+K)*(XE-VWV(19K))*(XE-VWV(29K))/(VV(3+K)-VV(1l9+K))/ 
3(VV(3+K)-VWV(29+K)) 

ІҒ(ҮЕ.СбЕ.УУ(.эК)) 60 TO 33 

J=2#] +64 

В(639М):-100.0%(ҮЕ/А(68»М)%е1.0) 

00 ТО 34 

J=2*1+63 

B(63,N)=100.0* (YE/A(689N)-1.0) 

B(J+N)=B(639+N) 

CONTINUE 

IF(VV(21+K).LE.0.0) GO TO 100 

SPECIAL COMPUTATION DURING THREE PHASE BUS FAULTS. 
B(63+N)=-100.0 

B(64,N)=-100.0 

CONTINUE 

RETURN 

END 
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SUBROUTINE TRAN 15 0000 
COMPUTE THE PHASE AND LINE-TO-LINE VOLTAGES AT THE SECONDARIES OF 15 0001 
DISTRIBUTION TRANSFORMERS, AND THE AVERAGE THREE-PHASE POWERS AND 15 0002 


THE PEAK REACTIVE POWERS PER PHASE OF THEIR LOADS. 15 0003 
COMMON А»В»В0»С»СО»ОэЭЕС»ЕР»Ғ,б»ОВ»0»УУ»0» Х9Х(.«ХМ» Ү9791>1061>1.62,і 63 15 0004 
ІЗІ РІЗІРД,ІРЗ»ЭТІТІЕ»НЕАО 15 0005 


ОІМЕМЭІОМ А (80, 35) 8(99»35),В0(8) С(50)»С0О(3»4)»б(120)ЕС(503) эЕР(515 0006 
10) «Ғ(З16)»6(21»35) » 68В(3»94»9);0(316) «УУ(21»9) »М(6»6»9)%Хі( (6»10»35)»15 0007 
2XM (691099) 9 ¥ (316) 9Z (6296935) •1 (134) » (01 (50) +» (02 (50) » (03(50) +» (Р1(50)15 0008 


39LP2(50)»LP3(50)>TITLE (39) >»HEAD(39) 15 0009 
NI 5141) + L(2) + L(3) + 1 15 0010 
N2 = Nl + L(4) = 1 15 0011 
DO 10 I = NleN2 15 0012 
L8 = IFIX(A(100I) * 0.00000001) 15 0013 
Ј = ((1•50) 15 001% 
J1 = J+1 15 0015 
Je = Jee 15 0016 
ІР ( Х.( Т.А(8» ІІ). ОН.Х.СТ.А(9,І)) GO TO 1 15 0017 
IF (L8 LE. 3 ) GO TO 1 15 0018 
В(а, І) = 0.5 (B(3491)* (F (J3)+F(J1))+B(3191)* (Y(J)+Y(J1))) 15 0019 
В (5.1) =В (4,1) 15 0020 
В (69 1) 58 (34.1) 9Е (2) 9В(31.1) Ү(32) 15 0021 
60 ТО 15 0022 
B(4+1)=8(34+1)*F (3)+B1(3191)*Y(J) 15 0023 
B(5»I) * B(35»I)*F(J1)*8(32. 12 *Y(J1) 15 0024 
B(6»I) 7 B(36»I)*F(J2) *B( 33, I) *Y (JO) 15 0025 
8(7+1) = 8(6+1)-8(5,1) 15 0026 
B(8 1) = B(5+s I) = B(6eI) 15 0027 
B(9eI) = B(6eI) - B(491) 15 0028 
B(10+1) = 0.001%( Y(J)*B(4+1)+Y(J1)+B(5,1)+Y(32)*RB(691)) 15 0029 
8(11,І) = 1.92456 -44( Y(J)*B(B9I)+Y(31)*B(991)+Y(12)*B(791)) 15 0030 
CONTINUE 15 0031 
RETURN 15 0032 


END 15 0033 
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SUBROUTINE VMAXTR 


COMPUTE THE PERCENT ERRORS OF THE PEAKS AND FREQUENCIES OF THE 
LINE-TO-LINE VOLTAGES AT THE SECONDARIES OF DISTRIBUTION TRANS- 


FORMERS 


COMMON As+B+ IBO+ C+ I+CD D EG IEP F + G+6GB QO VV eW IX XL + XMe eY Z+ 71 б1:162;,[163 


l»+LP19LP29LP39+TITLE+HEAD 


16 
16 
16 
16 
16 
16 
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0000 
0001 
0002 
0003 
0004 
0005 


DIMENSION A(80+35) +B(99+35)+B0O(8)+C(—°50) +CD(3*4&) +D(—°120) +EG(50) +£EP(516 0006 
10) oF (316) 96(21 935) 96B(39499) ж,0 (316) «УЎ (2159) “М (6679) "ХС (6, 1035) "16 0007 
2ХМ (6.10.9) •Ү (316) •2 (6.6»35) •1 (134) •1 61 (50) •1 62 (50) •1 63 (50) •1 РІ (50) 16 0008 
З. Р2 (50) •1 РЗ (50) • ТІТ. Е (39) • НЕАО (39) 


ЫП = LI I) + С02) + (| (3) е 1 
M2 = M1 + L(4) - 1 
00 200 Г = Nl+ N2 


TO ABOVE 80--+ SET CONTROLS FOR SPECIAL COMPUTATIONS DURING FAULTS 


AT SECONDARIES, 
(8 = ТЕ1Х ( А(10+1) » 0.00000001 


) 


IF ( ( Х-А(В+Т) = D(31)) sGT. 0s0 ) GO TO 40 


IF ( L8 ,LE. 0) GO TO 80 
IF (L8 = 3) 10» 20» 30 
IF ( L8 eGEe 2 ) GO TO 30 
GO TO 80 


G(21»1) = 10.0 

G(20eI) = 10.0 

(19.1) = 10.0 

GO TO 80 

ЇР ( ( Х-А(9»1)) «Пт. 0.0 ) GO TO 


ЇЕ ( (Х- А(9 41) - 0(31)) «ОТ. 0.0 
IF ( (8 LE. O ) GO TO 80 

IF ( (8-3 ) 50» 60» 70 

IF ( L8 .GE. г) GO TO 70 


А(20+1) = 0.0 
60 ТО 80 

(13.1) = 0.0 
(16.1) = 0.0 
(19.1) 50.0 


б(6,І) = 0.0 

IF ( А(20•1) «СТ. 0.0 ) 60 ТО 100 
TO 90--+ SET THE ARRAY G TO ZERO, 
A(20 61) = 10.0 


DO 90 J 1921 
G(JeI) = 0.0 
CONTINUE 


80 
) 


GO TO 80 


IF ( (D(31) - 0.1*C(1)) оЁТ. 0.0 ) 60 ТО 200 


Т0 120--» TRANSFER POINTS. 
DO 110 J = 1»12»3 

J1 = J+1 

G(J»+1) = О(Ј1•1) 

6(Ј1•1) = G(J1+*1 1) 


CONTINUE 

G(3eI) = X 

DO 120 J = 2.4 
G(3%JeI) = B(J+S+1) 
CONTINUE 


00 190 Ј = 1,3 


IF ( G(J+18+1) .LE. 0.0 ) GO TO 130 


TO ABOVE 130--, SPECIAL COMPUTATIONS DURING FAULTS AT SECONDARIES. 


К = 28) е 12 
B(K+I) = -100.0 


16 


16 0009 


0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 





130 


180 


150 


160 


170 


180 


190 


200 


-100.0 
= -100.0 


В(К•1•1) = 
8(3419,1) 
00 ТО 190 
K = 3*J + 3 
K] = K = 1 
TO 160--> 
IF ( C(MXM91) 
ХЕ = б(3,1) 
60 ТО 150 
ХЕ = G(291) - G(Kl+1)* (613,1) 
кг = Ј + 12 

B(J+1991) = 0.5/(XE - G(K291)) 
B(13»1) = B(J+1991)/0+.6-100.0 
8(Ј•19+1) = В(13,1) 

G(K2+6I) = ХЕ 

ТО 190--» 
Ke = J е 15 

G(K2»I) = G(K2,I) + 1.0 
IF ( ( G(K2sI) үе 3.0) «LT. 
Кё K = 2 

IF ((G(K1 + I) 
G1 G(K2eI) 2(0(3,1) 
62 G(Kl+1)*(G(1l91) - G(391)) 
63 G(IGOK» I) * (G(29 I) - GtlsI)) 
ТЕ1 512 (6(3, І) е б(2,І)) 

TE2 025(6(191) + G(391)) 

TE3 532 (6(2;1) % С6(1,1)) 

TE4 Gl + 62» 63 

XE = 0.,5%(ТЕ1 + TE2 + TE3)/TE4 
YE = 
1 (G(1+1) 
2 (6(2,1) 
3“ (ХЕ = 6(2?1))/(6(3,1) 


«МЕ. 0.0 ) GO TO 140 


> G(K2+1))*(G(Kl9I1) 
- G(2sI)) 


H IU M H 


- 6(3,1)) 
- 6(1,І))/(6(2,1) 


ІҒ (ҮЕ.бЕ. G(K+I)) GO TO 180 

K = 293» 13 

В(12»1) = -100.0* (YE/A(12+1) + 1.0) 
B(K»I) = B(1291) 

60 TO 190 

К = 2%3 + 12 

B(12+1) = 100.0*(YE/A(1291) = 1.0) 
В(к,І) = 8(12•1) 

CONTINUE 


IF ( Gt21»I) «1Е» 0.0 ) GO TO 200 


G(K29»I)* (XE = G(2$I))* (XE - G(391))/(G(191) 
* G(OKIS I)J* (XE = G1 ID) *(XE - G(391))/ 
- 6(3,1)) 
- 6(1,1)2/(6(391) 


COMPUTATION OF PERCENT FREQUENCY ERRORS, 


GO TO 170 
= G(2+1))/(G(K91) 


- G(K1»9»I)) 


COMPUTATION OF PERCENT ERRORS OF PEAKS, 


0.0 ) GO TO 190 


= 0(К»1))) ,LT. 0.0 ) GO TO 190 


- 6(221))/ 


+ G(K»I)*(XE - Gt1,TD)) 
- G(2»])) 


SPECIAL COMPUTATION DURING THREE PHASE FAULTS AT SECONDARIES. 


В(12»,1) = -100.0 
В(13,І) = -100.0 
CONTINUE 

RETURN 


END 


124 


0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
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0091 
0092 
0093 
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0095 
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0097 
0098 
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0103 
0104 
0105 
0106 
0107 
0108 
0109 
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SUBROUTINE DUPLEX 17 0000 
RETURN 
END 
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SUBROUTINE VMAXDR 18 0000 
RETURN 
END 





Gy y GO, GO G, G; O O O O 


0000000 


100 


101 


102 


104 
105 


12 


106 
107 


108 


16 
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SUBROUTINE YPRIM2 19 0000 
THIS IS A MAIN SUBROUTINE IN THE COMPUTATION OF THE DERIVATIVES OF 19 0001 
THE OEPENOENT VARIABLES OF SUB2, 19 0002 
IN THIS COMPUTATION, THE VARIOUS COMPONENTS OF THE PLANT ARE TRE- 19 0003 
ATEO IN THE FOLLOWING ORDER==-ROTATING MACHINES ON MAIN BUS» OIS- 19 0004 
TRIBUTION TRANSFORMERS» COMMERCIAL POWER SYSTEM» OUPLEX REACTOR 19 0005 


AND HV POWER SUPPLIES» REGULATORS OF GENERATING UNITS» ALTERNATORS 19 0006 
OF MG SETS AND THEIR REGULATORS» ANO SHAFTS OF MG SETS ANO INOUCT- 19 0007 


ION MOTORS. 19 0008 
OURING THIS COMPUTATION» VARIOUS OTHER VARIABLES ARE COMPUTEO» 19 0009 
SUCH AS BUS VOLTAGES» POWERS» TORQUES» ETC. 19 0010 
СОММОМ А»8В»В0»С»СО» О»ЕбС»ЕР»Ғ» б» ОВ» 0»УУ90»Х»9Х1 9ХМ9Ү927919161916291063 19 0011 
151 Р191 Р291 РЗ, ТІТ Е. НЕАО 19 0012 


OIMENSION A(809+35) •В (99,35) , ВО (8) .С (50) • СЮ (3,4) +0 (120) ›Еб (50) ›ЕР (519 0013 
10)„Р (316) ›б (21.35) +68 (3,4,9) ,0 (316) +» УМ (2199) М (69699) oXL (6910935) 919 0014 
2XM (691099) 9 ¥ (316) 9Z (696935) 9 (134) +161 (50) 1 62 (50) «163 (50) +1 РІ (50) 19 0015 


3.1Р2 (50) +1 РЗ (50) • ТІТІЕ (39) • НЕАО (39) 19 0016 
IF(L(33)) 5351553 | 19 0017 
NS=L (1) +1 (2) +L (3) 19 0018 
IF (L(2)*L(3)) 105510554100 19 0019 
TO 77--. COMPUTE THE OERIVATIVES OF THE WINOING CURRENTS OF THE 19 0020 


ROTATING MACHINES CONNECTEO TO THE MAIN BUS» ANO THE DERIVATIVES 19 0021 
OF THE OEPENDENT VARIABLES OF DISTRIBUTION TRANSFORMERS» THE COM- 19 0022 
MERCIAL POWER SYSTEM AND THE OUPLEX REACTOR ANO Hv POWER SUPPLIES. 19 0023 


ТО 104--, COMPUTE THE ELECTRICAL SPEEOS OF MOTORS» THE RERCENT 19 0024 
SPEEO ERRORS OF SYNCHRONOUS MOTORS ANO THE PERCENT SLIPS OF 19 0025 
INDUCTION MOTORS. 19 0026 
00 104 I=1+NS 19 0027 
LI=L(1+99) 19 0028 

GO TO (10451015102) ,LI 19 0029 
451 (12.50) »7 19 0030 
B(5»I) 5 А(15 1) РҮ(.)) 19 0031 
B(4+1)=100.0* (B(5S+1)/377.0-1.0) 19 0032 
GO TO 104 19 0033 
J=L(1+50) +6 19 0034 
В (5.1) =А (791) #Ү(Ј) 19 0035 
В (4+1) = 100,.0% (1,.0-В (5.1) /377,0) 19 0036 
CONTINUE 19 0037 
ІҒ(М521Е.0) GO TO 107 19 0038 
ТО 106--, SET UP THE INDUCTANCE ANO ((IMPEOANCE)) MATRICES OF RO- 19 0039 
TATING MACHINES. 19 0040 
CALL LMAT 19 0041 
CALL IMAT 19 0042 
IF ((L (1) ¢*L(2))-LE-0) GO TO 107 19 0043 
CALL SAT 19 0044 
CALL SATEF 19 0045 
CALL RLMB 19 0046 
ТО 111--,4 COMPUTE THE CURRENTS OF THE RL LOAD ANO OF THE TOTAL 19 0047 
LOAO OF THE MAIN BUS. 19 0048 
00 108 I=22+24 19 0049 
0(1+6)=0.0 19 0050 
0(1):0.0 19 0051 
IF(NS.LE.0) GO TO 109 19 0052 
00 18 I=1»NS 19 0053 
451 (1950) 19 0054 
0(22)20(22) *Y(J) 19 0055 
0(23)20(23) *Y(J*1) 19 0056 
0(24)20(24)*Y(J*2) 19 0057 


IF(I-L(1)) 17917918 19 0058 





СОО» 


Er 


18 
109 


19 


110 


111 
20 


112 


200 


304 


305 


306 


76 


D(28)2D(28)*Y(J) 
D(29)=D(29)+Y(J+1) 
D(30)=D(30)+Y(J+2) 

CONTINUE 

IF (L(S).LE.0) GO TO 19 
NU=NS+L (4) +1 

J=L (NU+50) 

0(22)-0(22) «Ү(.)) 

0 (23) =0 (23) +Ү(.7+1) 

0 (24) =0 (24) +Ү (7+2) 

0 (28) =0 (28) +Y¥ (J) 

D(29)=D(29) +Y(J+1) 
D(30)=D(30)+Y(J+2) 

IF (L(6).LE.0) GO TO 110 
J=L(31)-5 

D(22)=D(22)+Y(J) 
D(23)=D(23)+Y(J+1) 
D(24)=D(24)+»Y(J+2) 

IF (L(4).LE.0) GO TO 20 
N1=NS+1 

N2=N1+L (4) -1 

DO 111 I=N1+N2 

J=L (1+50) 

В (191) = (ҮУ(7+2)-Ү(Ј) ә /А (391) 
B(291)=(Y(J)-Y(1+1))/4(391) 
B(3»1)=(Y(J+1)-Y(J+2))/A(391) 
D(22)=D(22)+B(191) 
D(23)=D(23)+B(291) 
D(24)=D(24)+B(391) 
IF(NS.LE.0) GO TO 11? 

CALL XLMAT 

CALL TRIAS 

TO ABOVE 76--» SET UP THE MATRIX CD CONTAINING THE COEFFICIENTS OF 
THE THREE EQUATIONS RELATING THE CURRENT DERIVATIVES Of THE RL 
LOAD OF THE MAIN BUS. 

00 200 Іг1»3 

DO 200 J=1l94 

СО(1».) с 0.0 

IF (NS.GT.0) CALL CDMACH 

IF (L(4) ,GT»«0) CALL CDTRAN 
IF(L(5),GT.0) CALL CDCOMP 

IF (L(6).GT.0) CALL CDDR 

IF (X.LT.C(9) ,OR.X,GT.C(100)) GO TO 306 
Ir (L(8) - 3) 306, 306, 304 
TO 305--,+ ADJUST MATRIX CD DURING LINE-TO-LINE FAULT ОМ МАІМ BUS. 


CD(2»1) » CD(?2»1) + 1.0 * CD(1»1) 
С0 (2.2) = С0 (2,2) » 1.0 е CDt1l»2) 
с0 (293) = С0 (2,3) + CD(1»3) 

С0 (254) = С0 (2.4) + СО (194) 

С0 (3.3) = С0 (3,3) » 1.0 

С0 (1.1) = D(19) 

С0 (192) = -0 (20) 

С0 (193) = 0.0 

С0 (194) = 0(17) %*0 (23) - D(16)*%D(22) 
00 ТО 76 

С0 (161) = С0 (1,61) + 1.0 

CD(2+2) = CD(292) + 1.0 

CD(3,93) = С0 (3,3) + 1.0 


CALL MBSOLV 
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0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
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0071 
0072 
0073 
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0076 
0077 
0078 
0079 
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0081 
0082 
0083 
0084 
0085 
0086 
0087 
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0092 
0093 
0094 
0095 
0096 
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0098 
0099 
0100 
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0109 
0110 
0111 
0112 
0113 
0114 
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0117 





ооо 


77 


78 


79 
41 


53 


TO 77--» EVALUATE THE DERIVATIVES. 

IF (NS.GT.0) CALL FMACH 

IF (L(4) .GT.0) CALL FTRAN 

IF (L(5).GT.0) CALL FCOMP 

IF (L(t6) ,GT.0) CALL FOR 

ТО 78--, COMPUTE THE PHASE AND LINE-TO-LINE VOLTAGES OF THE MAIN 
BUS. 

0 (35)20 (16) 90 (22) «р (19) “Ор (25) 

0036) =0 (17) #0 (23) +0 (20) #0 (26) 

0 (37) =0 (18) #0 (24) +0 (21) +0 (27) 


0(38) = 0035) - (36) 
0039) = 0(36) - D(37) 
0040) = 0037) - D(35) 
003) =0.0 
0 (4) =0.0 


IF(L(S).LE.0) GO TO 41 

TO 79--. COMPUTE THE AVERAGE THREE-PHASE POWER AND THE PEAK REACT- 
IVE POWER PER PHASE OF THE COMMERCIAL POWER SYSTEM» AND THEIR CON- 
TRIBUTIONS TO THE LOAD OF THE MAIN BUS. 

JzL (NU*50) 

0(5)20.001*(D(35) *Y (J) *D( 36) *Y(J*12) *0(37) *Y (Je2)) 
D(6)=1.9245E-4*% (У (27) “р (39) «У (271) 90 (40) «У ()е2) 0 (38) ) 

0 (3) =0 (3) +0 (5) 

0 (4) =0 (4) +0 (6) 

IF(L(1).GT.0) CALL FREG 

IF(L(2).6T.0) CALL YPRIMG 

If (NS.GT,0) CALL FMECH 

L(33)=0 

RETURN 

END 
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0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
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SUBROUTINE LMAT 20 0000 
SET UP THE INDUCTANCE MATRICES, WITHOUT FIELD SATURATION EFFECTS. 20 0001 
OF THE ROTATING MACHINES CONNECTED TO THE MAIN BUS. 20 0002 
СОММОМ А»В»В0О»С»С0О»П»ЕОэ»ЕР»Ғ» 6» ОВ» 0»УУ»8»Х»Х| «ХМ»9Ү»7>91>91 619162>1063 20 0003 
l»sLPI*LP2SLP3, TITLES HEAD 20 0004 


DIMENSION A(80935)9+R (99935) ,B0(8) 9C (50) +CD(3+4),D(120) »EG (50) +EP (520 0005 
10) »Е(316),6(21»35)»68(3,4.9)»0(316)»УУ(21»9) 9W(69699) 9XL (6910935) 920 0006 
2XM (691099) 9 ¥ (316) 9Z (696935) sL (134) »LG1 (50) 9L62(50) 5LG3(50) SLP1(50)020 0007 


3+LP2(50) »sLP3(50) sTITLE (39) НЕАО(39) 20 0008 
CC=0 866025404 20 0009 
NS=L (1)¢L (2) 4L(3) 20 0010 
DO 10 I=1+NS 20 0011 
( Ізі (1»99) 20 0012 
GO TO (1»1»2)»LI 20 0013 
J=L(1+50)+6 20 0014 
60 ТО 4 20 0015 
341 (1250) 25 20 0016 
Хи (191. 1)5А(191) 20 0017 
Хі (29191) =-А (291) 20 0018 
Хі (39191) =Хі (251591) 20 0019 
Хі (29291) =Хі (15191) 20 0020 
Хі (39291) =Х1 (29191) 20 0021 
Хі (3.9391) =Х{ (19191) 20 0022 
В(19,1)5С05(Ү(.)) 20 0023 
B(20»1)=SIN(Y(J)) 20 0024 
С1=0.5*В (191) 20 0025 
С2-СС%В(19,1) 20 0026 
C3=0.5*B(20»1) 20 0027 
C4=CC#B( 2091) 20 0028 
B(21+1)=-C1-C4 20 0029 
B(22+1)=-C3+C2 20 0030 
В (23,1) ==-С1 •С4 20 0031 
B(24, I)=-C3-C2 20 0032 
Х| (491 1):-А(4.1)4В8(191) 20 0033 
Хі (45251) =-А (491) В (23,1) 20 0034 
Хі (4,31) =-А (4.1) В (21,1) 20 0035 
GO TO (6.695) »LI 20 0036 
Х| (494 1) = А (351) 20 0037 
ХІ (5.191) =А (4+1) +В (201) 20 0038 
Хі (592,1) =А (451) В (2491) 20 0039 
Хі (59391) =А (491) +В(22,1) 20 0040 
GO TO 8 20 0041 
XL («49 I) * A(75I) 20 0042 
XL(S+191)=-A(5,1)*B(1991) 20 0043 
Хі (552,1) =-А (5.1) +В (23,1) 20 0044 
ХІ (593 І)--А(5,1)%8(21,>91) 20 0045 
Хі (59451) =А (891) 20 0046 
ХІ (5.591) =А (9.1) 20 0047 
Хі (69191) =А (651) +В (2091) 20 0048 
Хі (692.1) =А (61) +В (2451) 20 0049 
Хі (653.1) =А (651) +В(22»1) 20 0050 
ЇЕСА(3,1)) 8,8,7 20 0051 
TO ABOVE 8+ SALIENCY EFFECTS FOR SYNCHRONOUS MACHINES. 20 0052 
B(25+1)=2.0*B(19+1)+B(19+1)-1.0 20 0053 
B(26+1)=2.0*B(19,+1)+B(2091) 20 005% 
С1-0.5%8(25,1) 20 0055 
C2=CC*B(259,1) 20 0056 
С3:0.528(26,1) 20 0057 


Са=ССеВ (26,1) 20 0058 





10 


8(27+1)=-C1-C4 
8(28+1)=-C3+C2 
8(29+1)=-C1+C4 
8(30+1)=-C3-C2 


ХО (1•1•»1)=Х  (1•1»1) »А(3, 1) +#8(25»+ 1) 
Хі (2,1,1) =Хі (29151) +А (3.1) +В (29,1) 
Хі (3.191) = Хі (3,5191) +А (3.1) +В (27,1) 
Хі (29261) =Х\ (22,1) +А (351) +В (27,1) 
Хі (39291) =Хі (3:251) +А (3.1) +В (25,1) 
Хі (39391) =Хі (39351) +А (35.1) +В (29,1) 


Хі (19291) =Хі (251,1) 
Хі (193.1) =Хі (391591) 
Хі (19491) = Хі (4911) 
Хі (19591) =Х\ (5.1591) 
XL C2» 39 I) XL (392 9$ I) 
Хі (29491) =Х\ (49251) 
Хі (295.1) =Х\ (5,21) 
Хі (394,1) =Хі (49361) 
Хі (3956.1) =Хі (5.351) 
Хі (495.1) =Хі (59491) 
GO TO (939910) eLI 
XL(1»6+I)=XL(6»1»]) 
Х( (26,1)хХ( (6»2,1) 
ХІ (3»9691)-Х1 (63,1) 
XL(4s6e9T)=XL (60491) 
XL(5+6+».1)=XL (69591) 
CONTINUE 

RETURN 

END 
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0060 
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0062 
0063 
0064 
0065 
0066 
0067 
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0069 
0070 
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0085 
0086 
0087 
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SUBROUTINE IMAT 21 0000 
SET UP THE ((IMPEDANCE)) MATRICES, WITHOUT FIELD SATURATION EF- 21 0001 
FECTS» OF THE ROTATING MACHINES CONNECTED TO THE MAIN BUS. 21 0002 
СОММОМ А»8»80» С»С0О»О»ЕСО»ЕР»Ғ» б» С89 0» УУ98»Х9Х(9ХМ»9Ү»97»91>9(619(62>( 63 21 0003 
ІЗІРІЗІРОЭ( РЭЭТІТ(Е»НЕАО 21 0004 


DIMENSION А(80»935) 8 (99, 35) ,80 (8) С(50)СО(3»4)»0(120)»ЕОС(503ЕР(521 0005 
10) »Е (316) 6 (21,35) .бВ (3.459) .0 (316) УУ(21»99) »М/((696»9)%Х( (6910935)»921 0006 
2хМм (6.1099) »Ү (316) +2 (66.35) ,{ (134) +161 (50) +162 (50) +63 (50) о (Р1(50)21 0007 


3.1 Р2 (50) +1 РЗ (50) sTITLE (39) »НЕАО (39) 21 0009 
№5=1 (1) +1 (2) +1 (3) 21 0009 
DO 9 I=1»nS 21 0010 
(Ізі (1»99) 21 0011 
GO TO (19198)»(1 21 0012 
CONTINUE 21 0013 
IF (A(391)) 39392 21 0014 
TO ABOVE 3» SALIENCY EFFECTS FOR SYNCHRONOUS MACHINES, 21 0015 
СС--2.089А(3,.1)928(5,1) 21 0016 
Z(291+1)=CC*B(3091) 21 0017 
7 (31, І)-СС%8(28,1) 21 0018 
7(3»2,>1)-СС“8(26,1) 21 0019 
7(191,1)-А(11»1)%7(3,>2,1) 21 0020 
2 (2251) =А (1151) +2 (39191) 21 0021 
2039391) =А (11591) +7 (29191) 21 0022 
GO TO 4 21 0023 
2(1•»1•1)=2А(11•1) 21 0024 
2 (29191) =0,.0 21 0025 
2 (3.191) =0.0 21 0026 
2 (2.291) =А (111) 21 0027 
2 (39291) =0,0 21 0028 
2 (39391) =А (1151) 21 0029 
СС-А (4,1) В (51) 21 0030 
2 (4191) =ССєВ (201) 21 0031 
2 (490251) =ССеєВ (241) 21 0032 
2 (49391) =ССеВ (221) 21 0033 
GO TO (5356) oLI 21 0034 
CC=A(5+1)%B(S I) 21 0035 
Z(Ss1+s1)=CC*#B (2051) 21 0036 
2 (590291) =ССеВ (24,1) 21 0037 
2 (5.391) =ССеВ (221) 21 0038 
СС=А (6.1) #В (5,1) 21 0039 
2 (6191) =ССеВ (19,1) 21 0040 
2 (692»1) =СС®еВ (231) 21 0041 
Z(69+3+1)=CC*B(2191) 21 0042 
60 ТО 7 21 0043 
CC=A(4+1)*B(591) 21 0044 
7(5,1»!І)-СС%8(19,1) 21 0045 
2 (5.2.1) =ССеВ (23,1) 21 0046 
Z(5+3I91)=CC*B(2191) 21 0047 
2 (19491) =7 (49191) 21 0048 
7(1»5,1)-7(5,1,1) 21 0049 
2 (29491) =7 (4.0291) 21 0050 
2 (29591) =7 (5,0291) 21 0051 
2 (39491) =7 (4.3591) 21 0052 
2 (395,1) =2 (5.3.1) 21 0053 
GO TO (89899) eLI 21 0054 
Z(l+291) - 7(2,1,1) 21 0055 
2(19391) = 2(3+1+1) 21 0056 
2(2+%3•1) = 2(3+ф2+1) 21 0057 


2(196.1)52(6 1,1) 21 0058 





2(2+6+1)=22(6+2+1) 

2 (3.691)-27(6 3.1) 
9 CONTINUE 

RFTURN 

END 


21 
21 
21 
21 
21 
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SUBROUTINE SAT 22 0000 
DETERMINE IF THE FIFLDS OF THE SYNCHRONOUS MACHINES CONNECTED TO 22 0001 
THE MAIN BUS ARE SATURATED, AND COMPUTE THE FIELD FLUX LINKAGES» 22 0002 
THE EQUIVALENT FIELD SATURATION CURRENTS» AND THE DERIVATIVES OF 22 0003 


THE LATTER WITH RESPECT TO THE FORMER» 22 000% 
COMMON AsBeBOsCeoCDsDsEGeEPoF sGeGBoQeVVeWeXeXLoXMsYeZeLeoLGlsLG2eLG3 22 0005 
leLPlslLP2esLP3e+TITLEsHEAD 22 0006 


DIMENSION A(80935) 98 (99935) ВО (8) 9€ (50) »›СО(3»4) ›0О (120) ›ЕС (50) ›ЕР (522 0007 
10) oF (316) 96(21935) 96GB (39499) 9Q(316) • УУ (2159) 9W(69699) 9XL (6910935) 922 0008 
2XM (691099) 9 ¥ (316) 9Z (696935) ob (134) sLG1 (50) sLG2(50) +163 (50) »1Р1 (50) 22 0009 


J4LP2(50) o LP3(50) se TITLE (39) sHEAD(39) 22 0010 
NT=L (1) +L (2) 22 0011 
DO 7 1=19NT 22 0012 
J=L (1+50)-1 22 0013 
B(6+1)=0.0 22 0014 
DO 4 K=19+5 22 0015 
M=J+K 22 0016 
Bt69* I) ZB(69 I) *XL (A^9K9 I) *^Y (M) 22 0017 
ЇЕ (В (6.1) -А(16 13) 55546 22 0018 
B(7,1)=0.0 22 0019 
B(8+1)=0.0 22 0020 
С (1•10)=1 22 0021 
GO TO 7 22 0022 
C1=A (16+1)-0.5/(A(1791)%A(791)) 22 0023 
C2=C1*C1+B(6,1)/(A(17+1)*A(791))-A(1691)%A (1691) 22 0024 
C2=SQRT(C2) 22 0025 
B(6+1)=C1+C2 22 0026 
B(7+1)=A4(17+1)* (B(691)-A(1691))*(B(691)-A(1691)) 22 0027 
8(89»1)-2.0%А(17»912%(8(691)-А(16>1)) 22 0028 
L(I+10)=2 22 0029 
CONTINUE 22 0030 
RETURN 22 0031 


END 22 0032 
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SUBROUTINE SATEF 23 0000 
ADD FIELD SATURATION EFFECTS TO THE INDUCTANCE AND ((IMPEDANCE)) 23 0001 
MATRICES OF THE SYNCHRONOUS MACHINES CONNECTED TO THE MAIN BUS, 23 0002 
СОММОМ АВ Во С. СО 0 ЕОС ЕРЕ о ов» ОФ УМ eW X> XL  XM Y Z sl , 10151025103 23 0003 
1sLP16LP2 6 LP3 TITLE HEAD 23 0004 


DIMENSION A(80+35)9+B(999+35)+B0(8B)9+C(50)9CD(3+4)+D(120)+EG (50) +EP (523 0005 
10)» (316) »0(21»35) »608(3» 499) •0 (316) » УУ (2199) » М(6+6»9) +, Х  (6+,10+ 35) 23 0006 
2XM (691099) 9 ¥ (316) 9Z (696935) of (134) +(61(50) » (62 (50) + 03(50) » (Р1(50) 23 0007 


3»LP2 (50) »5LP3(50) s TITLE (39) HEAD (39) 23 0008 
NT=L (1)+L (2) 23 0009 
DO 2 I=leNT 23 0010 
| 20-1 (1910) 23 0011 
бо ТО (2»1)»120 23 0012 
C1=A(49+1)*B(8B91)/(1.,0+A1(79+1)*B(891)) 23 0013 
С2=А (4.1) +С] 23 0014 
C3=C1*B(1991) 23 0015 
C4zC2*B(1991) 23 0016 
XL (1»1»I)=SXL(1»1»1)-C4*#B (19,1) 23 0017 
XL (2»1» I) XL (2919»I) -C4*B(23,I) 23 0018 
Хі (3.161) =Хі (39191) -С46%В (21,1) 23 0019 
XL (4»19» I) XL (4919 I) 4C3*A (07 9I) 23 0020 
Х| (59191) 5Х1 (59191) «СЗ2А(8»1) гз 0021 
C3=C1*#B (2391) 23 0022 
Са=С2%В (23,1) 23 0023 
Хі (29291) =Х( (29251) -С4а%В (2351) 23 0024 
Хі (39291) =Хі (3.251) -С4%В (21,1) 23 0025 
Хі (49291) = Хі (49251) +СЗФА (791) 23 0026 
Хі (59291) =Хі (5.291) •СЗ?А (В»ї1) 23 0027 
Хі (39391) =Х( (39391) -С2°В (21.1) +В (21591) 23 0028 
C3=C1*B(2191) 23 0029 
XL (4939 I) zXL (4939 I) *C3*A (79 I) 23 0030 
ХІ (59391)-Х( (593 I) «C3*A(B9I) 23 0031 
СЗ-С1ІғА(7,1І)/А(4,1) 23 0032 
Хі (4.491) =Хі (4491) -СЗФА (7.1) 23 0033 
ХІ (59491) = Хі (59491) -СЗФА (ВІ) 23 0034 
Х| (59591) 5Х1 (545 1)-012А(8 1) А(8-.1)/А(9Ф91) 23 0035 
C1=C1*B(59+]1) 23 0036 
C2=C2*B (5+1) 23 0037 
C3=C1*B(2091) 23 0038 
C4=C2*B(209+1) 23 0039 
Z(l+1»1)=Z(1+1,1)+C4*B(1991) 23 0040 
2 (2191) =7 (29191) •С4%В (23591) 23 0041 
Z(3,01»1)=7Z(3+,191)+C4*B(2191) 23 0042 
Z(491»1)=Z(4+1+1)-C3*A (791) 23 0043 
2(59191):27(5»,1,.1)-С32А(891) 23 0044 
C3=C1*8(249+1) 23 0045 
Са=С2°В (24,1) 23 0046 
Z(le2eI) * Z(1»29»I) + C4*B(1991) 23 0047 
2(2.2.1)-7(2.2 1) С498(23-1) 23 0048 
2 (39291) =7 (392,1) +С4%В (211) 23 0049 
7 (490291) =7 (49251) -СЗЖА (751) 23 0050 
2 (5291) =7 (5.2.1) -СЗФА (ВІ) 23 0051 
C3 = C1*B(2291) 23 0052 
C4 = С2%В (22.1) 23 0053 
Z(l+391) = 7(143»1) + C4*B(1991) 23 0054 
Z(2»39I1) = Z(29391) + C4*B(2391) 23 0055 
Z(39391) = Z(32391) + C4*B(2191) 23 0056 
2 (4.391) =7 (4.391) -СЗФА (791) 23 0057 


2 (5.391) =7 (5.3.1) -СЗ?А (В 1) 23 0058 





Хі (19291) =Хі (25191) 
XL C193.» I) XL (39159 I) 
Хі (19491) =Хі (4511) 
хі (1951) 5Х1 (54191) 
Х( (2,3,1)=Х( (3,2,1) 
Хі (29491) =Хі (42,1) 
Хі (2.5.1) =Хі (5:251) 
Хі (39461) =ХІ (49351) 
Хі (39591) =Хі (5.31) 
Хі (49591) =Хі (5.491) 
C1=A(4+1)*B(591) 
B(9,1)=C1*B(209,1) 
B(10+1)=C1*B(249,1) 
B(11,1)=C1*B(2291) 
CONTINUE 

RETURN 

END 


136 


0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 





АЖ 


о © ~ч O 


137 


SUBROUTINE RLMB 2% 0000 
COMPUTE THE INSTANTANEOUS VALUES OF THE PHASE RESISTANCES AND IN- 24 0001 
DUCTANCES OF THE RL LOAD OF THE MAIN BUS, 24 0002 
СОММОМ А,В,ВО»С,СО.О»ЕСбЕР.Е,б»бВ,О УМ» МУХХ! ,ХМ.Үү»29151615162 5103 24 0003 
ІЗІРІЗІРОЭІРЭЭТІТ( Е»НЕАО 26 0004 


DIMENSION А(80,35) В (99,35) . ВО (8) •С (50) ›СО(3»4) •0 (120) ›ЕСб (50) sEP (S24 0005 
10) oF (316) 96(21 935) 96B (39499) .0 (316) sVV (2199) oW (69699) oXL (6910935) 924 0006 
2XM (691099) 9 ¥ (316) 9Z (696935) +» ( (1389) +1 61 (50) +162 (50) +163 (50) о (Р1(50)2% 0007 


3»LP2 (50) 5LP3(SOD) e TITLE (39) sHEAD (39) 24 0008 
DO 1 1=3,8 24 0009 
Jz1*13 24 0010 
D(J) = C(I) 24 0011 
IF (X.LT.C(11)) GO TO 3 24 0012 
TO 2--» STEP CHANGE IN RL LOAD. 24 0013 
C1=1.0+C(12) 24 0014 
0о 2 1=16,21 2а 0015 
D(1) = C1*D(1) 24 0016 
ЇЕ(Х.1.Т.С(13)) 00 ТО 5 24 0017 
TO 4--» SINUSOIDAL VARIATION OF RL LOAD. 24 0018 
C12C(14)*(X-C(13)) 24 0019 
C2=1.0+C(15)*SIN(C1) e^ 0020 
C1=C(15)*C(]14)*C05S(C1) 24 0021 
DO 4 1-16»18 24 0022 
Ј=1•3 2% 0023 
D(I)z2C2*D(I)*C1*D(J) 24 0024 
D(J) C2*D(J) 24 0025 
ТЕ (Х.ЕТ.С (9) . ОВ. Х,СбТ.С(10)) GO TO 9 24 0026 
TO ABOVE 9--. ADJUST VALUES DURING ONE» TWO». OR THREE PHASE FAULTS 24 0027 
ON MAIN BUS. 2^ 0028 
L7=L (7) 24 0029 
IF (L7.LE.0.0R,L7.GT.3) GO TO 9 2& 0030 
GO TO (8+7+6)9L 7 24 0031 
D(18)=0.0 24 0032 
D(21) = 0.0 24 0033 
D(17)=0.0 24 0034 
D(20)=0.0 24 0035 
D(16)=0.0 24 0036 
D(19)=0.0 24 0037 
RETURN 24 0038 


END 24 0039 
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SUBROUTINE XLMAT 25 0000 
SET UP THE MATRIX XL CONTAINING THE COEFFICIENTS OF THE EQUATIONS 25 0001 
RELATING THE WINDING CURRENT DERIVATIVES OF EACH ROTATING MACHINE» 25 0002 
CONNECTED TO THE MAIN BUS» TO THE CURRENT DERIVATIVES OF THE RL 25 0003 


LOAD OF THE MAIN BUS. 25 0004 
СОММОМ А»В»В0»С» СО»О>»ЕСО»ЕР»Ғ» б» ОВ» 0О»УУ»9 М4» Х9Х( ХМ9 Үн791>1619162>1063 25 0005 
l»LP1»LP2»LP3»TITLE»HEAD 25 0006 


DIMENSION A(80,35) »B (99, 35) ,B0 (8) +C(S0) +CD(3+4)+D(120)+EG(S0)+EP (525 0007 
10) «Ғ(З316)»6(21»35)»6В(3»94»9)»0(316) >УУ(21»9)»й(6»96»99)»Хі| (6910»935)»25 0008 
2ХМ(691099)»Ү(316)»7(6»6935) 91 (134)9161(50)9162(50)9163(50091Р1(50)25 0009 


391Р2(50)91Р3(50)ЭТІТІЕ(З39) «НЕАО( 39) 25 0010 
NS=L (1) +L (2) *+L (3) 25 0011 
С1:0(16) 20422) 25 0012 
С2=0 (17) #0 (23) 25 0013 
C32D(18) *D (24) 25 0014 
DO 33 I=1+NS 25 0015 
LI=L (1+99) 25 0016 
J=L (1+50)-1 25 0017 
IF(LI.GE.3) GO TO 110 25 0018 
TO 100--9 CONTRIBUTIONS FROM THE GROUNDING REACTORS OF SYNCHRONOUS 25 0019 
MACHINES, 25 0020 
C4=A (2191) 25 0021 
IF(C4.LE.0.0) GO TO 110 25 0022 
DO 100 K=1»3 25 0023 
DO 100 M=1»3 25 0024 
XL (K 3 Ms I)ZXL (K 9 M9» I) “Са 25 0025 
00 22 Кг1»6 25 0026 
бо 21 M=7–10 25 0027 
XL (KoMeI)=0.0 25 0028 
CONTINUE 25 0029 
Хі (19791) =-С1 +В (751) #В (951) 25 0030 
Хі (19891) =-0 (19) 25 0031 
Хі (29791) =-Сс2+В8 (791) +В (1091) 25 0032 
Хі (29.1) =-0 (20) 25 0033 
Хі (39791) =-С3 +В (71) +8 (1191) 25 0034 
Х|, (3.10 .1)5-0(21) 25 0035 
GO TO (24923925) eLI 2S 0036 
TO 210--+ CONTRIBUTION FROM THE FIELD VOLTAGE OF SYNCHRONOUS MO- 25 0037 
TORS» (EXCITER MODEL») 25 0038 
IF ((60.0-B(591)/6.283).GE.A(2491)) GO TO 200 25 0039 
IF(Y(J+4).LT.0.0) GO TO 200 25 0040 
С4=0.005% (0 (7) +0(8)) 25 0041 
IF(A(239+1).LT.0.0) C4=0.005*(D(9)+D(10)) 25 0042 
8(1291)=A(229+1)*C(2)*(1.0+C4) 25 0043 
GO TO 210 25 0044 
8(12+1)=-A(2591)*Y(J+4) 25 0045 
XL (4+7+1)=8(129,1) 25 0046 
JJ=6 25 0047 
00 ТО 15 25 0048 
JJ=6 25 0049 
TO ABOVE 25--» CONTRIBUTIONS FROM THE FIELD VOLTAGE OF SYNCHRONOUS 25 0050 
ALTERNATORS. (EXCITER MODEL.) 2S 0051 
IF (ABS (Y(1+8)).GT.A(3391)) Y(J+8)=SIGN(A (3391) 9Y(+8)) 25 0052 
IF (ABS(B(14s+1)).LT.A(3291)) GO TO 30 25 0053 
ХІ (49751) =51СНМ (А (32,1) В (14,1) ) 2S 0054 
00 ТО 15 25 0055 
Св-2.0%(А(12,1)еА(31,1)) /(3.0%А(4,1)“8(65,1)) 25 0056 
C5=C4*(A(1]91)+A(291)+1.5%A(391))*B (591) 25 0057 


XL (4+979+1)=C5*(Y(J+1)*B(1991)+Y(J+2)*B(2391)+Y(J+3)*B(2191))-C4*( 25 0058 





25 
15 


ас 
27 
33 


10(16)%0(22)•»8(20», 1) +0 (17) "0 (23) •8(2%• 1) +0 (18) 0 (24) "8 (22, 1)) • У (Ј 
2•8)-А(31»1) ФУ ()+4) 

Хі (4,891) =-С4%0 (19) +В (201) 

ХІ (491) =-С4%0 (20) +В (24,1) 

Х| (4.1061) =- С4 #0 (21) #В(22,1) 

GO ТО 15 

JJz5 

DO 27 K=leJJ 

DO 26 Mzl+JJ 

М-.)»М 

XL (Ko7+1)=XL (Ko7+1)-Z(Ko+Mo 1) *Y (N) 
CONTINUE 

CONTINUE 

RETURN 

END 
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SUBROUTINE TRIAS 26 0000 
FOR EACH ROTATING MACHINE CONNECTED TO THE MAIN BUS» TRIANGULARTZE 26 0001 
THE CORRESPONDING PART OF THE MATRIX XL. 26 0002 
THE RUN IS ABORTED IF ANY SUCH PART OF XL IS SINGULAR» AND A СОМ- 26 0003 
MENT IS WRITTEN IN TAPE 6. 26 0004 
COMMON As BOsC CD D EG+EP F+ G+6GBsQ I VVoW y X6 XL+XM Y +Z $L 16191 62.163 26 0005 
1»LP1»LP2»LP3»TITLE»HEAD 26 0006 


DIMENSION A(80535)38(999535) »,80(8) »С(50) +»С0 ( 3» 9) » 0 (120) »Еб(50) »ЕР(526 0007 
10)», 7 (316) »0(21+35) »08(3+6+,9) +0( 316) •» УМ (21 9) »5W(6*9699) +» Х (6+,10+ 35) •26 0008 
2ХМ(691099)»Ү(316)»2(696935)91 (1306) +» 601(50) + 62 (50) »•63(50) »(Р1(50)26 0009 


3»LP2(50) 5LP3(50) 9 TITLE(39)  HEAD(39) 26 0010 
FORMAT (1H1»24HABNORMAL EXIT FROM TRIAS/28H THE XL MATRIX OF SET NU 26 0011 
1MBER+13,12H IS SINGULAR) 26 0012 
NS=L (1) +L (2) +L (3) 26 0013 
DO 23 I=leNS 26 0014 
LI=L (1+99) 26 0015 
GO ТО (191929911 26 0016 
Jz7 26 0017 
GO TO 3 26 0018 
J=6 26 0019 
J2J-1 26 0020 
IF(ABS(XL (Jo Jo 1))-1,0E-30) 494912 26 0021 
IF(J-1) 55556 26 0022 
SINGULAR MATRIX. ABORT RUN, 26 0023 
WRITE(6»100) I 26 0024 
CALL EXIT 26 0025 
J1=J 26 0026 
J1=J1-1 26 0027 
IF(ABS(XL(Jl+J+1))-1.0E-30) 89899 26 0028 
IF(J1-1) 555,7 26 0029 
DO 10 K=leJ 26 0030 
W1=XL (JeK o I) 26 0031 
XL(J+K+1)=XxL (Jl+K1) 26 0032 
XL (Jl+K»+1)=wW1 26 0033 
DO 11 K=79+10 26 0034 
WI=XL (Joke!) 26 0035 
XL(JoK eT) =XL (Jl oko!) 26 0036 
XL(Jl+K+1)=W1 26 0037 
JJ=J-1 26 0038 
IF (JJ) 15015913 26 0039 
DO 14 K31»JJ 26 0040 
XL CJ*sK» I)ZXLCJSK9 I) /XL CJo9 Jo I) 26 0041 
DO 16 K=7910 26 0042 
XL(JesK+I)=XL(JesK+I1)/XL (Je Jol) 26 0043 
IF(JJ) 23923917 26 0044 
J1=J-1 26 0045 
IF(XLCJ1»J9» I)) 19922919 26 0046 
DO 20 K=leJJ 26 0047 
XL (Jl+K»+1)=XL(Jl+K+1)-XL (Jl+J9 1) *XL (JrK91) 26 0048 
DO 21 K=7,10 26 0049 
XL (J1+K+1)=XL (Jl+K91)-XL(Jl+J9+1)*XL(JorK91) 26 0050 
J1=J1-1 26 0051 
1 (31) 3939418 26 0052 
CONTINUE 26 0053 
RETURN 26 0054 


END 26 0055 
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SUBROUTINE СОМАСН 21 
COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD FROM EACH ROTATING MA- 27 
CHINE CONNECTED TO THE MAIN BUS, 27 
COMMON AsB BOsC + CD + D ЕС ЕР» G6GB QO VVoWe Xs XU XM Y 291 1619162,1 63 27 
1,» LP19+LP22LP39TITLESHEAD 27 


141 


0000 
0001 
0002 
0003 
0004 


ОІМЕМ5ІОМ А(80935) «В(99»35) 80(8)»С(50) СО(3»94)»0О(120)ЕС(50) «ЕР(527 0005 
10)+F (316) +6(21+35)+6B8(3+4+9)+0(316),VWV(21+9)+.W(696+9)+XL(6+10+35),27 0006 
2XM(6+10+9)+»Y(316)+Z(696935) +1 (134) +» 61 (50) » (62 (50) »(03(50) • (Р1(50)27 0007 


3eLP2 (50) «LP3(50) sTITLE (39) HEAD (39) 27 0008 
NS 5141) • ((2) + L (3) 27 0009 
DO 35 I=1+NS 27 0010 
IF(I-L(43)) 33524533 27 0011 
ІҒ(( (40)) 25925927 27 0012 
С0(191) - СО(191)-Х(. (198,1) 27 0013 
С0(192) = СО(1.2)-Х1 (1,991) 27 0014 
CD(1 3) = С0(1»3)-Х((1,1091) 27 0015 
CD(1»4) = С0 (1.4) +Х{ (197591) 27 0016 
IF (L(41)) 26926031 27 0017 
CD(2e1)=CD(201)=-XL(298sT) *XL(2eleI)#XL(le8eI) 27 0018 
С0 (2+2) =С0 (2.2) - Хі (29951) +Х{ (29191) #+Хі (19991) 27 0019 
с0 (2»3) =С0 (293) - Хі (25101) + Хі (29191) #Хі (1.10.1) 27 0020 
С0 (24) =С0 (294) + Хі (297.1) = Хі (2.191) #Х1 (19791) 27 0021 
IF (L(42)) 34934935 2? 0022 
IF (L(41)) 28428930 27 0023 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE B WHEN PHASE A OF A 27 0024 
MACHINE IS DISCONNECTED FROM THE MAIN BUS, 27 0025 
CD(2+1)=CD(2+91)-XL(2+891) 27 0026 
CD (292) =CD (292) -XL (29991) 21 0027 
CN(29+3)=CN(2+3)-XxL (2+109+1) 27 0028 
CD(2+4)=CD(2+4)+XxXL (2,791) 27 0029 
IF (L(42)) 29929935 27 0030 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE A OF 27 0031 
A MACHINE IS DISCONNECTED FROM THE MAIN BUS. 21 0032 
С0 (3,1) =С0 (3.1) - Хі (3.891) +Х( (3929.1) “%Х( (28,1) 27 0033 
СО (392) =С0 (3.2) - Хі (3.91) +Х| (3.291) #Х[ (299,1) 27 0034 
СО (3.3) 00 (3.3)-Х1 (39101) Хи (3.2 1) 2Х1(2»10,1) 27 0035 
СО (394) 500 (3.4) «Хи (31979 1)-XL (3929 1)*XxL (2,791) 27 0036 
GO TO 35 27 0037 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE C WHEN PHASES A AND B 27 0038 
OF A MACHINE ARE DISCONNECTED FROM THE MAIN BUS. 27 0039 
CD(3+1)=C0(3+1)-XL (3+891) 27 0040 
CD(3+,2)=CD(3+2)-XxL (39991) 27 0041 
С0О(3%93)-С0(3» 3)-Хі (391091) 27 0042 
С0 (394) = С0 (34) + (39761) 27 0043 
GO TO 35 27 0044 
IF(L(42)) 32.32.35 27 0045 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE B OF 27 0046 
A MACHINE IS DISCONNECTED FROM THE MAIN BUS. 27 0047 
СО(3,21)-С0(3»91)-Х( (38,1) еХ1| (39191) %Х( (198,1) 27 0048 
Ср (З«2) CD(3»2) -XL (39399 IJ *XL (G9 1 » IJ *XL C1» 99 I) 27 0049 
CD(3+93)=CD(3+3) -xXL(3+10+1)+xL(3+1+1)*XL (191091) 27 0050 
СО (394) 00(3.4) *XL (39 79» I) -XL (39 1» I) *XL C197 9 I) 27 0051 
GO TO 35 27 0052 
CD(1+1)=CD(1,1)-XL(1+89+1) 27 0053 
CD(1+2)=CD(1+2)-XL(1+99+1) 27 0054 
CD(1+3)=CD(1+3)-XL(1+1091) 27 0055 
CD(1»4)2CD(1»4) *XL C1»? 4I) 27 0056 
CD(2+1)=CD(29+1)-XL(2+891)+XxL (291+1)*XxL(1+891) 27 0057 


С0 (2+2) =С0 (2,2) - ХІ (299,1) +Х| (2.191) #Хі (1991) 27 


0058 





CD(293)=CD1(29+3)-XL (2+10+1)+XxL(2+191)*XL (191091) 
CD(2»4)CD(2»4) *XL (2979 1) -XL (2919 IJ *XL C19 79 I) 

34 CD(3»1)3CD(39»1)-XL(3»89» I) *XL(3»29 I) *XL (2*89 ID) *XL (1989 I2 * (XL (39 1 9 I) 
1 -Х( (291,1) “Х( (392,1)) 
CD(3,2)=CD(39+2)-XL (399+1)+XL (329291) +XL (29991) +XxXL (1999 1)* (XL (39191) 
1 -Х1 (21.1) 9Х1(3»,»2,1)) 
СО (3+3) =С0 03.3) = Хі (391091) +Х1 (39251) #Хі (291091) +1 (191091) + (Хі (351 
191) - Хі (20191) +Х{ (39251) ) 
СО (3.4) =С0 (394) +1 (39791) Хі (39291) Хі (29791) Хі (19791) + (Хі (39191) 
1 = хі (29191) #Х( (3921) ) 

35 CONTINUE 
RETURN 
END 
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SUBROUTINE CDTRAN 28 0000 
FOR EACH DISTRIBUTION TRANSFORMER CONNECTED TO THE MAIN BUS» 28 0001 
COMPUTE B(39,1) TO B(S50+ 1)» WHICH ARE THE COEFFICIENTS OF THE 28 0002 
THREE EQUATIONS RELATING THE DERIVATIVES OF THE SECONDARY CURRENTS 28 0003 
TO THE CURRENT DERIVATIVES OF THE RL LOAD OF THE MAIN BUS» AND 28 0004 
COMPUTE THE CONTRIBUTIONS TO THE MATRIX Cჩა 28 0005 
СОММОМ А»В»В0»С»СО»О>ЕС»ЕР>»Ғ» б» ОВ» 0» УУ» 0» ХХі ХМ»Ү»791>161>102>163 28 0006 
l1»LP1»LP2,LP3,TITLEsHEAD 28 0007 


ОТМЕМ5ТОМ А(80»+35) +»8(99+ 35) »80 (8) +» С (50) + С0 (3» 4) •0 (120) »Еб(50) »ЕР(528 0008 
10) oF (316) 06(21935) 968 (39499) 0Q(316) sVV(2199) 9W(69699) oXL (6910935) 928 0009 
2XM (691099) 9 ¥ (316) 9Z (696935) oL (134) +» (61(50) » 62 (50) +» (63(50) +» (Р1(50) 28 0010 


3e9LP2(50) +1 РЗ (50) »seTITLE (39) HEAD (39) 28 0011 
Nl=L (1) +L (2) +L (3) +1 28 0012 
N2=N1+L (4)-1 28 0013 
DO 200 I=N1+N2 28 0014 
то 20--» СОМРОТЕ THE INSTANTANEOUS VALUES OF THE PHASE RESISTANCES 28 0015 
AND INDUCTANCES OF THE RL LOAD OF EACH TRANSFORMERe 28 0016 
DO 10 J=319+33 28 0017 
B(Jsl)=A(& 1) 28 0018 
B(J*«3» I) ZA(59 I) 28 0019 
CONTINUE 28 0020 
IF (X.LT-.A(69 I)) GO TO 30 28 0021 
ТО 20--, STEP CHANGE IN RL LOAD. 28 0022 
C1=1.0+4(791) 28 0023 
DO 20 J=31»36 28 0024 
B(J+1)=C1*B(J1) 28 0025 
CONTINUE 28 0026 
TO 159--, COMPUTE B(39,1I) ТО В(50.Т). 28 0027 
DO 40 .:39,50 28 0028 
B(J» I) 0.0 28 0029 
CONTINUE 28 0030 
J=L (1+50) 28 0031 
IF(X.LT.A(89 1) .«ОР.Х.СТ.А(9›Т)) GO TO 60 28 0032 
L8zIFIX(A(1051)*0.000000001) 28 0033 
IF(L8.GE.4) GO TO 110 28 0034 
IF(L8.LE.0) GO TO 60 28 0035 
TO 59--» ADJUST THE PHASE RESISTANCES AND INDUCTANCES OF THE 28 0036 
TRANSFORMER RL LOAD DURING A ONE» TWO» OR THREE PHASE FAULT ON SE- 28 0037 
CONDARY. 28 0038 
GO TO (5029492948) oL8 28 0039 
B(33+,1)=0.0 28 0040 
B(36,1)=0.0 28 0041 
В(32,1)-0.0 28 0042 
B(35,1)=0.0 28 0043 
B(31,1)=0.0 28 0044 
В(34.1)-0.0 28 0045 
IF(I.NE.L(43)) GO TO 70 28 0046 
IF (L(40).GT.0) GO TO 80 28 0047 
IF (L(41).G6T.0) GO TO 90 28 0048 
IF(L(42).6T.0) GO TO 100 28 0049 
TO 79--». GENERAL EXPRESSIONS. 28 0050 
C1=1.0/(A4(2+,1)+B(34,1)) 28 0051 
С2=С1/А (3,1) 28 0052 
8(39+1)=-С19 У (Ј) + (А (1,1) +В (3191) ) +С2% (0 (16) #0 (22) -0 (17) +0 (23) ) 28 0053 
В (40.1) =Сс2#+0 (19) 28 0054 
Я (41,1) ==-С2%0 (20) 28 0055 
С1=1,.0/(А (21) +В (35,1) ) 28 0056 
С2=С1/А (3,1) 28 0057 


В (43.1) =-С1#Ү(.7+1) + (А (191) +8 (032,1) ) +С2% (0 (17) *0 (23) -0 (18) #0 (24) ) 28 0058 
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В (45.1) =С2%0 (20) 28 0059 

В (4651) ==-С2%0 (21) 28 0060 
С1=1,.0/ (А (251) +В (36,1) ) 28 0061 
С2=С1/А (3,1) 28 0062 

В (4791) ==-С1#Ү(Ј+2) * (А(1 51) +8 (3351) ) +С2% (0 (18) #0 (24) -0 (16) *р (22) ) 28 0063 

В (48,1) =-С2%р0 (19) 28 0064 

79 В(50,1) =С2%0 (21) 28 0065 
GO TO 160 28 0066 

TO 89--, PHASE A OF TRANSFORMER DISCONNECTED FROM THE MAIN 805. 28 0067 

80 C1=1.0/1(2.0*A(2+1)+B(34+1)+B(3691)) 28 0068 
С2-01/А(3»1) 28 0069 

В (39.1) =-С1#Ү(Ј) % (2,0#А (191) +8 (31,1) +8 (3351) ) -С2% (0 (17) +0 (23) -0 (18 28 0070 

1) #0 (24) ) 28 0071 

В (4191) =-С2%#0 (20) 28 0072 

В (4251) =С2#0 (21) 28 0073 
С1=1,.0/ (А (251) +В (35,1) ) 28 0074 
С2=С1/А (3,1) 28 0075 

В (43,1) ==-С1#ү(Ј+1) # (А(1,1) +8 (32,1) ) +С2% (0 (17) #0 (23) -0 (18) +0 (24) ) 28 0076 

В (45.1) =С2%0 (20) 28 0077 

В (46.1) ==-С2%0 (21) 28 0078 

В (4751) =В (39,1) 28 0079 

В (49.1) =В (411) 28 0080 

89 В (5051) =В (42,1) 28 0081 
GO TO 160 28 0082 

TO 99--, PHASE B OF TRANSFORMER DISCONNECTED FROM THE MAIN AUS. 28 0083 

90 C1=1.0/(2.0*A(2+1)+B(34+1)+8(3591)) 28 0084 
С2-01/А(3,1) 28 0085 
В(39»-1)--019Ү(./)9(2,02А(1.1)-8(31.1)-8(32,»,1))-024(0(18)20(24)-0(16 28 0086 
1)#N(22)) 28 0087 

В (40.1) =С2#0 (19) 28 0088 

В (42,1) =-С2%0 (21) 28 0089 

В (43.1) =В (39.1) 28 0090 

В (44,1) =В (401) 28 0091 

В (46,1) =В (42,1) 28 0092 
С1=1,.0/ (А (261) +В (36,1) ) 28 0093 
С2=С1/А (391) 28 0094 

В (4791) ==-С1#Ү(Ј+2) + (А (151) +В (331) ) +С2% (0 (18) #0 (24) -0 (16) #0 (22) ) 28 0095 

В (48.1) =-С2%0 (19) 28 0096 

99 В(5091) =С2%0 (21) 28 0097 
GO TO 160 28 0098 

TO 109--, PHASE C OF TRANSFORMER DISCONNECTED FROM THE MAIN BUS. 28 0099 
100 C1=1.0/(A(2+1)+B(34,1)) 28 0100 
С2:01/А(3,1) 28 0101 
8B(399+1)=-C1*Y(J)*(A(1+1)+B(31+1))+C2*(D(16)*D(22)-D(17)*D(23)) 28 0102 
B(40+1)=C2*D(19) 28 0103 

В (4191) ==-С2%0 (20) 28 0104 
С1=1,.0/(2,.0*#А (2,1) +В (3551) +8 (36591) ) 28 0105 
С2=С1/А (3,61) 28 0106 

В (4391) =-С1#Ү(Ј+1) + (2.0%А (151) +В (3251) +8 (33591) ) -C2* (D( 150) *D (22) -D( 28 0107 
117) 0 (23) ) 28 0108 

В (4451) =-С2%0 (19) 28 0109 

В (45.1) =С2%0 (20) 28 0110 

В (4751) =В (43.1) 28 0111 

В (48,1) =В (44,1) 28 0112 
109 В(49,1) =В (45,1) 28 0113 
60 ТО 160 28 0114 
110 ТЕ(1.МЕ,1(93)) 00 ТО 120 28 0115 
IF (1 (40).GT.0) GO TO 130 28 0116 


IF(L(41).GT.0) GO TO 140 28 0117 
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129 


130 


139 


140 


Е (6 (42) .СТ.0) GO TO 150 

ТО 129--. LINE-TO-LINE FAULT ON SECONDARY. 
С8=0.5/ (А (2,1) +В (34,1) ) 
С10=С8% (А (1,1) +В (31,1) ) 

(8-08/А(3,1) 

С9=0.5/А (2,1) 

C1=C10*#*(Y(J)*Y(J*1)) 
C2=C9Ə*%*A(1+1)*%(Y(J)—Y(J*1)) 

С9-09/А(3»1) 

C3=C8* (D(18)*D(24)-D(16)*D(22)) 

C4zC99 (D(160) *D(22) *D(K 18) *D(24) -2,0*D(17)*D(23)) 
CSzC89*D (21) 

C6=C8#D(19) 

С7:С990 (19) 

С8-2.0%С9%0(20) 

С9-С9%0 (21) 

B(39,1)=-C1-C2-C3+C4 

B(40+1)=C6+C7 

В (41,91) =-Сс8 

В (42.1) =-С5 +С9 

B(43+,1)=-C1+C2-C3-C4 

В(54.1) 06-07 

B(45,1)=C8 

RA(46+1)=-C5-C9 

B(479+1)=2.0* (-C10*Y (J+2)+C3) 

В (48.1) =-2.0%С6 

В (50.1) =2.0%С5 

GO TO 160 

TO 139--, LINE-TO-LINE FAULT ON SECONDARY AND PHASE A OF TRANS- 
FORMER DISCONNECTED FROM THE MAIN BUSe 
C6=1 0/4 (A (291) 40-258B(34eI)) 
C1=(A(1,1)+B(3121))* (2.0*Y(J) e Y(Jr1))/(3.0* (A(2,1)+B(34.1))) 
C2=C6*(A(1+1)+0.25*B(31»1))* (Y (J)-Y(J+1))/3.0 
C6=0.5*C6/A(391) 

C32C6* (DC17) *DC23) -DC 18) *D(24)0) 
C4zC69D(20) 

C5=C6*D (21) 

B(39,1)=-C1-C2-C3 

B(41+1)=-C4 

B(42,1)=C5 

B(43,1)=-C1+2.0*(C2+C3) 

В (45.1) =2.0%С4 

В (46.1) ==-2.09%С5 

В (47,1) =В (39,1) 

В (49,1) ==-Са 

В (50.1) =С5 

GO TO 160 

TO 149--, LINE-TO-LINE FAULT ON SECONDARY AND PHASE B OF TRANS- 
FORMER DISCONNECTED FROM THE MAIN BUS. 
Са=1.0/ (А (251) +В (34,1) ) 
С5=С4%(А(1,1) +В (3151) ) 

С4=0.5%С4/А(З.Г) 

С1=С4% (0 (18) #0 (24) -0 (16) #0 (22) ) 

С2=С24%0 (21) 

СЗ=С4%0 (19) 

B(39.I)z-C5*Y(J) -Cl 

В (4051) =С3 

В (429.1) =-С2 

В (4351) =В (39,1) 
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8(44.1):03 28 0177 
B(46+1)=-C2 28 0178 
B(47+1)=-C5*Y (J+2)+2,09C1 28 0179 
B(48,1)=-2.0%*C3 28 0180 
149 В(50,1):2.0%С2 28 0181 
GO TO 160 28 0182 
то 159--, LINE-TO-LINE FAULT ON SECONDARY AND PHASE C OF TRANS- 28 0183 
FORMER DISCONNECTED FROM THE MAIN BUS. 28 0184 
150 C621.0/(A(29»1)*0.25*8 (345. I)) 28 0185 
С1= (А (1.1) +8 (3191) ) + (Ү(2) +2.0#Ү(261) ) / (3.0% (А (291) +8 (341) )) 28 0186 
С2:2С6%(А(1,1)%0.25%8 (31 2)*(Y(.) ~-У ()•1) ) 73. 0 28 0187 
С6:0,59С6/А(3»1) 28 0188 
C3=C6* (D(16)*D(22)-D(17)*D(23)) 28 0189 
C4=C6*0 (19) 28 0190 
С5-С6%0(20) 28 0191 
B(39+,1)=-C1+2.0* (C3-C2) 28 0192 
B(40+1)=2,0*C4 28 0193 
В (41.1) ==-2.0#С5 28 0194 
8B(43,1)=-C1+C2-C3 28 0195 
B(44+1)=-C4 28 0196 
B(45,1)=C5 28 0197 
8(47.1):8(43,1) 28 0198 
8(48.1)--С4 28 0199 
159 8(49, 1I)=C5 28 0200 
COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD. 28 0201 
160 IF(I.E0Q.L (43) .AND.L (40) .GT.0) GO TO 170 28 0202 
CD(1l+1)=C0(1+,1)-(B(48+1)-B(4091))/A(3J91) 28 0203 
С0 (192) =С0 (192) ~ (8 (49.1) -В (41.1) ) /А (391) 28 0204 
CD(1+3)=C0(1+3)-(B(509+1)-B(42+1))/A(391) 28 0205 
СО (14) =С0 (1.4) + (В (47.1) -В (39.1) ) /А (391) 28 0206 
170 ІЕ(І,.ЕО (643) .АМОЁ (41)-01.0) 00 ТО 180 28 0207 
CD(2+1)=CD(2+1)-(B(40+1)-B(4491))/A(3J91) 28 0208 
СО (2.2) 00(2»2)-18(41»1)-8(45,1)) /А(3»1) 28 0209 
С0(2.3)-00(2.,3)-1(8(42.1)-8(46,1)) /А(391) 28 0210 
С0 (24) =С0 (254) + (В (29.1) -В (43.1) ) /А (391) 28 0211 
180 IF(I.EQ.L (43) S AND.,L (42) ,GT,O) GO TO 200 28 0212 
СО (3.1) =С0 (351) ~ (В (4451) -8 (4891) ) /А (391) 28 0213 
С0 (3.2) =Сс0 (3,2) ~ (В (45.1) -В (4951) ) /А (351) 28 0214 
CD(3,3)=C0(3,3)-(B(469+1)-B(50+1))/A(391) 28 0215 
CD(3,4)=C0(3,4)+(B(439+1)-8(4791))/A(391) 28 0216 
200 CONTINUE 28 0217 
RETURN 28 0218 


END 28 0219 
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SUBROUTINE CDCOMP 
SET UP THE VOLTAGE EQUATIONS OF THE COMMERCIAL POWER SYSTEM. 
INVERT THESE EQUATIONS TO COMPUTE THE COEFFICIENTS D(100) TO 


D(111) RELATING THE DERIVATIVES OF THE CURRENTS FROM THE SYSTEM TO 
THE MAIN BUS TO THE CURRENT DERIVATIVES OF THE RL LOAD OF THE MAIN 


BUS. THE RUN IS ABORTED IF A SINGULAR MATRIX IS INVOLVED IN THIS 
INVERSION. AND A COMMENT IS WRITTEN IN TAPE 6, 
COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD FROM THE SYSTEM. 


СОММОМ А.В» ВОС» СО 0 ЕС. ЕРЕ Со СВ о0о МУ о Мо Хо Хі о ХМ Үн 291 91 61 91 б2 63 
191 Р19СР2+1 РЗ 6 TITLE HEAD 


147 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 


DIMENSION A(809+35)+R(99+35) +B0(8)+C(50)9CD(3+4) +D(120)»EG(50)+EP (529 0010 


З»ЁР2 (50) › РЗ (50)  TITLE(39) s HEAD(39) 
8 FORMAT (1H1+25HABNORMAL EXIT FROM CDCOMP/60H THE EQUATIONS OF THE C 
1ОММЕВСІА( POWER SYSTEM ARE DEGENERATE) 


NU=L (1) +L (2) +L (3) +L (&) +1 

J=L (NU+50) 

415241 

J2=J+2 

ТО 20--» COMPUTE THE PHASE VOLTAGES OF THE POWER SYSTEM. 
C1=C(41) 

ТЕ (Х, СЕ С(83) .АМО. Х. Е.С (45)) Cl1=C1*(1.0+C(44)) 
С2=376.991115%Х+С (42) 

D(96)=C1*C0S(C2) 

С1:0,8660254049С1951М(С2) 

С2=-0.5%0 (96) 

О (97) =С2+С1 

0(98) 02-01 

TO ABOVE 7--. SET UP VOLTAGE EQUATIONS. 

TO 70--» GENERAL EXPRESSIONS. SUFFICIENT FOR THREE PHASE FAULT ON 
PRIMARY OF TRANSFORMER. 

С1=С (35) +2.0%С (37) 


C2=C (36) +2.0*C(38) 

XU1=C1 

XU2=-C (37) 

XU3=<-C (37) 

XU4=-C2ey (J) +C (38) #(Y (51) +¥ (52) )-D(16) #0 (22) 
XUS=-D (19) 

XU67-C (37) 

XU7=C1 

XUB=-C (37) 

xU9==C2*Y (11)+C(38) + (Y (3) +Y(J2))-D(17)*D(23) 
XU10==D(20) 

XU11=-C(37) 

XU12=-C(37) 

XU13=C1 


xU14=-C2*Y (142)+C(38)* (Y (1) *Y CJ1)) -DC 18) *D(24) 
XU15=-D(21) 

IF (X«4GE.C(&47) -eAND-X.LE-C(48)) GO TO 2 

TO 30--» ADJUSTMENTS FOR NO FAULT ON PRIMARY OF TRANSFORMER. 
ХО1>Х01%2.0%С(39) 

XU2=XU2-C (39) 

XU3=XU3-C (39) 
XU4zXU4-2,0*C(40) *Y (JJ) *C(40)* (Y (21) *Y (22) ) *D( 96) -D(97) 
XU6zXU6-C(39) 

XU7TzXU7*2.0*C(39) 

XUB=XUB-C (39) 
XU9zXU9-2.0*C(40) *YCJ1) *«C(40) *(YCJ) *YCJ2) ) *D( 97) -D(98) 


10) 9F (31605G(21»35)3GB( 34459) 958(316) УУ(21»99)»М/(6»6»99)»Х( (69»10»935)»29 0011 
2XM (691099) 9 ¥ (316) 02 (696935) 9L (134) sLG1 (50) »LG2(50) +. L63(50)+.LP1(50)29 0012 


29 0013 


29 
29 
29 
29 
29 
29 
29 
29 
29 
29 
29 
29 
29 


0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
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40 


50 


60 


XU11=XU11-C (39) 

ХОУ125Х012-С(39) 

Х013-Х013%2.0%С(39) 
XU16zXU1&-2,0*%*C(&0)*%*Y(J2)+C(&0)%(Y(J)*Y(J1))*D (98) =-D (96) 
GO TO 7 

IF(L(8)-1) 15354 

ТО 40==, ADJUSTMENTS FOR ONE PHASE FAULT ON PRIMARY OF TRANSFORMER 
XU12XU1*C(39) 

XU2zXU?2-C(39) 

XU4zXU^ -C(40)* (Y(J) -YCJ1)) -D(97) 

XU62XU6-C(39) 

XU72XU7*2.0*C(39) 

XUBEXUB-C (39) 
XU9zXU9-2,.0*C(40)*Y(J1) *C(40)0*(YCJ) *Y CJ2)) *D( 97) -D(98) 
XUL2=XU12-C (39) 

XU13sXU13*C (39) 

XUl162XU14-C(^0)* (Y (.)2) -YCJ12)) *D(98) 

GO TO 7 

IF(L(8)-3) 5,796 

TO 50--, ADJUSTMENTS FOR TWO PHASE FAULT ON PRIMARY OF TRANSFORMER 
XU7T=XU74C (39) 

XURZXUB-C (39) 

C1=C (40)* (Y (32) -Y(J31))-D(98) 

Х092Х09»С1 

XU12=XU12-C (39) 

XU13=XU134C(39) 


XU14=XU14-Cl 

GO TO 7 

ТО 60--» ADJUSTMENTS FOR LINE-TO-LINE FAULT ON PRIMARY OF TRANS- 
FORMER. 


XU7z2XU7*1.5*C (39) 
XUBzXU8-1.5*C(39) 
C131.5*C(40)*(Y(CJ1) -YCJ2)) *1.5*D (98) 
Х09-Х09-С1 

Х012-Х012-1.5%С(39) 
Х013ғХ1713%1.5%С(39) 

XU14=XU14¢Cl 

TO 10--» COMPUTE D(100) TO D(111). 
C12XU7*XU13-XU12*XU8 
C2-zXU2*XU13-XU129XU3 
СЗ-Х02%Х08-Х07%Х03 
DETZXUI*CI1I-XU69C2*XU11*C3 
IFC(ABS(DET).GT.1.0E-30) CO TO 9 
SINGULAR MATRIX. ABORT RUN. 

WRITE (698) 

CALL EXIT 
D(100)=(xU4*C1-XU9*C2+XU14*C3)/DET 
D(101)zXUS* C1/DET 
D(102)2-XU10*C2/DET 
D(103)=xU15*C3/DET 
C1=(xXU6*XxU13-XU1]1*X1/8)/DET 
С2-:1Х019Х013-Х0119Х03) /рЕТ 
C3=(XU]*XUB-XU6*XU3)/DET 
D(104)=xU9*C2-XU4*C]1-XU14*C3 
D(105)=-xU5*C1 

0(106)-Х010%С2 

D(107)2-XU15*C3 
C12(XU6*XU12-XU1 1*XU7) /DET 

С2- (Х019ХО12-Х0119Х12) /рЕТ 
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0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 





10 


11 


12 


14 


С3:(Х019Х07-Х069Х02) /ОЕТ 
D(108) ZXU4*C1-XU9* C2 *XU14*C3 
D(109)zXUS*CI 
D(110)=-xU10*C2 
D(111)zXU152C3 


COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD. 


IF (NUeEQeL (43) eANDoL (40) -GT.0) GO TO 11 
Сс0(1•1)200(1+1)-0(101) 
СО(1.2):020(1-2)-0(102) 
CO(1+3)=CD(1+3)-D(103) 
CD(1+4)=CD(1+,4)+D(100) 

ТР (МО.ЁО.1 (93) ,АМ.я1 (91)-01Т.0) 60 ТО 12 
С0 (2,1) =С0 (2.1) -0 (105) 

СО (2.2) =С0 (2.2) ~) (106) 

С0 (263) =С0 (2.3) -0 (107) 

СО (2.4) =С0 (254) +0 (104) 

ТЕ (МО.ЁО.1 (93) ,АМП.,1 (42) 67.0) 60 TO 1^ 
СО (3.1) =С0 (3.1) 0 (109) 

С0 (3.2) =С0 (3.2) -0 (110) 

С0 (3.3) =С0 (3.3) -0 (111) 

СО (3.4) =С0 (3.4) +0 (108) 

RFTURN 

END 
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0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 


0140 
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SUBROUTINE CDDR 


COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD FROM THE 


30 


DUPLEX REACTOR 30 


СОММОМ АФВ»ВО»С СОО ЁЕОСб»ЕРЕ,О,.ОВ» Оо МУ о мохо ХІ e XM Ү979(9( 61910622103 30 


l»LPI*ULP2SLPQ3S TITLES HEAD 


30 
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0000 
0001 
0002 
0003 


DIMENSION А(80»35) В (99,35) ›ВО (8) ›С (50) › СО (3»4)›0 (120) +Еб (50) ›ЕР (530 0004 


J2L (31) -5 


TO 2--» COMPUTE THE INSTANTANEOUS VALUES OF THE PHASE RESISTANCE 
AND INOUCTANCE OF THE RL LOAD REPRESENTING HVPS NUMBER 2. 


D(77)=C(23) 
0(78) =С (24) 
IF(X.LT.C(29)) GO TO 1 


TO ABOVE 1--» VALUES FOR STEP CHANGE OF LOAD OF HVPS NUMBER 2. 


C1=1.0+C(30) 

0077) =С1%0 (77) 

0 (78) =С1%0 (78) 

IF (Х.ЁТ.С (26) .ОВ.Х.СбТ.С(27)) GO TO 2 


TO ABOVE 2--, VALUES DURING CROWBAR IN HVPS NUMBER 2, 


D(77)=C(28) 

0(78)-0.0 

C1=1.0/(C(19)+C(21)) 
C2=1.0/(C(19)+D(77)) 
C3=1.0-C(18)*(C1+C2) 

C1=C1/C3 

C2=C2/C3 

СЗ-С1%С2 

С2-С2%(С(20)%0(78)) 

C1=C2-C1* (C(20)+C(22)) 
D(79)=C1*Y (J+3) “Сгеу (2) +С3#+0 (16) ®%0 (22) 
D(80)=C1*Y (J+4)+C2*Y(J+1)+C3*D(17)*D(23) 
0 (81) =С1%у (4+5) +С2*у (4+2) +С3%0 (18) *0 (24) 
0 (82) =СЗ 

C0(1«11=C0(19291)2–2C390(19) 

С0(199) :00(199)-0(79) 

CD (202) =CD (202) «С320(20) 

CD (204) =C0(254)-D(80) 

CDN (393) =CD (393) *C3#D (21) 

СО (3,4) =С0 (3,4) -0 (81) 

RETURN 

END 


10)+F (316) +6(21+35)+6B(3+4+9) +0(316) ,VWV(21+9) .W(696+9) 9XL(6+10+35)9+30 0005 
2XM (691099) 9 ¥ (316) 9Z (696935) +L (134) ,L61 (50) 9L62(50) 9L63(50)»LP1(50)30 0006 


39LP2(50) sLP3(50) »s TITLE (39) sHEAD(39) 30 0007 


0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 





G O O O 


101 


37 
38 
39 


40 
41 


42 
63 


44 
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SUBROUTINE MBSOLV 31 0000 
SOLVE FOR THE CURRENT DERIVATIVES OF THE RL LOAD OF THE MAIN BUS 31 0001 
BY TRIANGULARIZING THE MATRIX CD. 31 0002 
THE RUN IS ABORTED IF THF MATRIX IS SINGULAR,» AND A COMMENT IS 31 0003 
WRITTEN IN TAPE 6. 31 0004 
COMMON AsB. BOsC+sCDsD+sEG+sEP F+ G+5GB yQ I VVoW X XU XM 291 916191629163 31 0005 
LeLPl sLP2sLP3e5TITLEsHEAD 31 0006 


DIMENSION A(80935) »В (99.35) »В0 (8) »С (50) » СО (394) 90(120) sEG(50) sEP (531 0007 
10) „2 (316) +6 (21935) 68(3»4»9) 0 (316) + МУ (21,9) + (6:699) sXL (6910935) 931 0008 
2XM (691099) s¥ (316) 9Z (696935) 9L (134) »L G1 (50) +» (62 (50) + ( 63(50) » (Р1(50) 31 0009 


3eLP2(50) sLP3(50) « ТІТІЕ (39) + НЕАО (39) 31 0010 
FORMAT (1H1»25HABNORMAL EXIT FROM MBSOLV/26H THE CD MATRIX IS SINGU 31 0011 
1lLAR/1H0*s4 (1X. E12.5)) 31 0012 
1-4 31 0013 
1-1-1 31 0014 
ЇЕ (АВ5 (С0(1»1))-1-0Е-30) 38,38,45 31 0015 
ІҒ(І-1) 39939940 31 0016 
SINGULAR MATRIX. ABORT RUN. 31 0017? 
WRITE(C6$101) (CCD(I5.29»J2154) »Iz215»3) 31 0018 
CALL EXIT 31 0019 
11=1 31 0020 
11-11-1 31 0021 
ІҒ(АВС(СО(1191))-1.0Е-30) 42542543 31 0022 
IF(11-1) 39,39,41 31 0023 
DO 44 К=1.1 31 0024 
W1=CO(I 9K) 31 0025 
CO(IsK) =CO(I1 9K) 31 0026 
CD(11+K)=w1 31 0027 
W1=CD(1 +4) 31 0028 
С0 (1.4) =СО (1154) 31 0029 
C0 (1194) =V1 31 0030 
II=I-1 31 0031 
ТЕ (ТТ) 48548.46 31 0032 
00 97 Кг1.11 31 0033 
CD(IsK)=C)O(I+K)/CD(I I) 31 0034 
СО (196) =С0 (194) /СО (191) 31 0035 
IF(11I) 75»75»,70 31 0036 
11-1-1 31 0037 
IF(CO(11+1)) 727472 31 0038 
DO 73 K=1l+ II 31 0039 
CD(11+K)=CD(119K)-CD(11+1)*CD(1I+K) 31 0040 
СО (11-59) 00(11.9)-00(11»1)9С0(1»9) 31 0091 
11=11-1 31 0042 
17 (11) 37537971 31 0043 
0(25) =С0 (]1›4) 31 0044 
0(26) 00(2 9) -Ср(2»1)90(25) 31 0045 
0 (27) =С0 (3+4) ~-С0 (3,1) #0 (25) -С0 (3,2) #0 (26) 31 0046 
RETURN 31 0097 


END 31 0048 





SUBROUTINE FMACH 32 
COMPUTE THE DERIVATIVES OF THE WINDING CURRENTS OF THE ROTATING 32 
MACHINES CONNECTED TO THE MAIN BUS, 32 
COMMON A+B9B09C+CDIDIEGIEP9F9G9GR909VVIWoXo9 XL oXMoY9ZoL9LG19LG29LG63 32 
leLPleLP2eLP3sTITLEsHEAD 32 
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0000 
0001 
0002 
0003 
0004 


01МЕМ510М А(80,35),8(99,35),В0(89),С(50),С0(3»94),.0(120),ЕОС(50),ЕР(532 0005 
10) oF (316),.6(21.35) .08(3,94 9) ,.0(316)»МУУ(21»9) .М(6.6.9),Х1(6.109.35) 32 0006 
2XM(69+109+9) +Y(316)+Z(6+69+35) 9+L (134) +161 (50) +162 (50) +163 (50) + (Р1(50) 32 0007 


39LP2(50) eLP3(50) sTITLE (39) sHEAD (39) 32 0008 
NS=L (1) +L (2) +1 (3) 32 0009 

DO 61 I=1»NS 32 0010 
J=L (1+50) 32 0011 
315341 32 0012 
J2=J+2 32 0013 
J3=J+3 32 0014 
J4=J+4 32 0015 

ЈЕ (1 „МЕ, (83) -OR.L(40).LE.0) GO TO 51 32 0016 
PHASE A OF THE MACHINE IS DISCONNECTED FORM THE MAIN BUS. 32 0017 
F(J)=0.0 32 0018 

60 TO 5? 32 0019 

5] F(J)XL(1»7» 1) *XL(1»4895 I) *D( 29) *XL (1999 1) *D(260) *XL (1»109 I) *0(27) 32 0020 
Se IF (I eNEL (43) .0R.L (41) ,LE.,0) GO TO 54 32 0021 
PHASE B OF THE MACHINE IS DISCONNECTED FROM THE MAIN BUS. 32 0022 
F(J1)=0.0 32 0023 
60 TO 55 32 0024 

54 F(J1)=XxL (29791) +XxXL (29891)*D(25)+XxL (2+9+1)*D(26) +xXL (2•10+ 1) "0 (27) -Е 32 0025 
107) #Х{ (2911) 32 0026 
55 IF(I.NE.L (43) 40R.L (42) ,LE.0) GO TO 58 32 0027 
PHASE C OF THE MACHINE IS DISCONNECTED FROM THE MAIN 805. 32 0028 
F(J2)=0.0 32 0029 

60 ТО 59 32 0030 

58 F(J2)=XL(3+7+1)+xL(39891)%D(25)+xL(399+1)*D(26)+XxL (3910+1)*D(27)-F 32 0031 
1 (3)*XL(39191)-F (J31)*+XxXL (3,291) 32 0032 
59 F(J3)=XL (49791) *XL (49891) 40(25) *XL (40991) #0 (26) XL (491091) #0(27)-F 32 0033 
1())5Х1 (491 91)-5Е031)2Х1 (992 .1)-Е(32)9Х1 (4.3,1) 32 0034 
F(J4) = XL(S+791) - F(J) *XL(Ss1»I) - F(J1)*XL(Ss2.»I) - F(J2)*XL(5., 32 0035 
13,1) - F(J3)*XL (5.54, I) 32 0036 

( Ізі (1%99) 32 0037 

СО ТО (60,60,61), 1 32 0038 

60 JS=J*5 32 0039 
ЕС()5) = Х1(6,7 1) > F(J)*XL (69191) > F(J1)*XL(69221) - F(J2)*xXL (62 32 0040 
13,1) 32 0041 
61 CONTINUE 32 0042 
RF TURN 32 0043 


END 32 


0044 
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SUBROUTINE FTRAN 33 0000 
COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE DISTRI- 33 0001 
BUTION TRANSFORMERS CONNECTED TO THE MAIN BUS, 33 0002 
СОММОМ А»8В»В0» С»СО»Г>ЕС»ЕР»Ғ»бС» ОВ» 0» УУ94»Х9Х( 9 ХМ»Ү»9791>161>162>91.63 33 0003 
ІЗІРІЗІРДЭІ РЭЭТІТІЕ»НЕАО 33 000% 


DIMENSION А(80›35)оВ (99,35) ›ВО(8).С(50).С0(394)›0 (120) ›Еб (50) ›ЕР (533 0005 
10) oF (316) 96 (21935) 66B(39499) .0 (316) sVV(21 99) 9W(69699) o XL (6910935) 933 0006 
2XM (691009) 9 ¥ (316) 9Z (696935) oL (134) + LG1 (50) +» (62 (50) +»(03(50) + (Р1 (50) 33 0007 


3.1Р2 (50) +1 РЗ (50) • ТІТІЕ (39) • НЕАО (39) 33 0008 
NI:L(1)*L(2)*L(3) f1 33 0009 
N2=N1 +L (4) -1 33 0010 
DO 100 I=N1+N2 33 0011 
J=L (1+50) 33 0012 
F(J3)=B(39,1)+B(40,1)*D(25)+B(419,1)*D(26) +B(42+1)*D(27) 33 0013 
Е (./+1) =В (43›Т) +В (44,Т) *0 (25) +8 (45,1) *0 (26) +В (46, ТГ) *0 (27) 33 0014 
Ғ(Је2) =В (47.1) +В (48,1) #0 (25) •*В (49,1) #0 (26) +В (50,1) *0 (27) 33 0015 

100 CONTINUE 33 0016 
RETURN 33 0017 


END 33 0018 
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SUBROUTINE FCOMP 34 0000 
COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE COMMERC- 34 0001 
I4L POWER SYSTEM. 34 0002 
COMMON A$»R$.,BOsC»CDs D» EGSEPSF sG*» GBesQo VV»sWoXoXLo XMo Yes ZoeLSLGISLG29»LG3 34 0003 
1»LP1»LP2+»LP3, TITLE,HEAD 34 0004 


ОТМЕМ5ТОМ А(80935) +8(99+» 35) »80 (8) +С(50) +»С0 (396) о 0 (120) » 2 0(50) s9EP (534 0005 
10) »Ғ (316) +»60(21+ 35) »08(3%».%%9) »0 (316) гУУ (2179) 95W(69699) Х1 (6.10 935) 34 0006 
2XM(6+10+9)9Y(316)9Z(69+69+35)9L (134) +1G1(50)9LG2(50)+L63(50)+LP1(50)34 0007 


3»LP2 (50) »LP3(S50) S TITLE(39) sHEAD (39) 34 0008 
NU = L(1) + L(2) • (3) + L(4) + 1 34 0009 
JzL (NU*50) 34 0010 
J1=J+1 34 0011 
J2=J+2 34 0012 
ТЕ (МУ. МЕ + (43) ,0Н.1 (40) .1Е.0) GO TO 1 34 0013 
PHASE A OF THE SYSTEM IS DISCONNECTED FROM THE MAIN BUS. 34 0014 
F(J)=0.0 34 0015 
GO TO 2 34 0016 
F(3)=D(100)+D(101)*D(25)+D(102)*D(26)+D(103)*D(27) 34 0017 
ЇЕ (NU+-NE .L (43).0R+L (41) .LE.0) GO TO 3 34 0018 
PHASE B OF THE SYSTEM IS DISCONNECTED FROM THE MAIN BUS. 34 0019 
F(J1)=0.0 34 0020 
GO TO 4 34 0021 
Р (11) =0 (104) +0 (105) %0 (25) +0 (106) *р0 (26) +0 (107) *р (27) 34 0022 
IF (NUeNEoL (43) .OReL (42) .LE.0) 60 ТО 5 34 0023 
PHASE C OF THE SYSTEM IS DISCONNECTED FROM THE MAIN BUS. 34 0024 
F(J2)=0.0 34 0025 
GO TO 6 34 0026 
Р (Јг)=0 (108) +0 (109) #90 (25) 0 (110) 0 (26) •0 (111) #0 (27) 34 0027 
RETURN 34 0028 


END 34 0029 





SUBROUTINE FDR 35 0000 
COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE DUPLEX 35 0001 
REACTOR AND HIGH VOLTAGE POWER SUPPLY NUMBER 1. 35 0002 
COMMON А»В»В0»С» СО» О>ЕС»ЕР»Ғ»б» ОВ» 0О0»УУ»8»Х9Хі| ХМ9Ү979191619>10629163 35 0003 
l»LP1o9LP29LP39TITLESHEAD 35 0004 


DIMENSION A(80935) 98 (99935) » ВО (8) •С (50) • СО (3+4) +0 (120) ЕС (50) »ЕР(535 0005 
10) oF (316) 96(21 935) 96B (39499) 0 (316) » УУ (21,9) М (696.9) »5XL (6910935) »35 0006 
2X4 (691099) s¥ (316) 9Z (696935) ol (134) sL G1 (50) • (62 (50) •(63(50) о (Р1(50) 35 0007 


3e9LP2(50) 6 LP3(50) es TITLE (39) sHEAD(39) 35 0008 
C1=1.0/(2.0*C1(19)+C(21)+D(77)) 35 0009 
C2=C1* (C(19)+D(77)) 35 0010 
C3=C1* (C(20)+D(78)) 35 0011 
C1=C1* (C (20) +C(22))+C3 35 0012 
J = L(31)-5 35 0013 
Jl = J+3 35 0014 
F(J) 2-0(79) -D(82) *D(19) *D(25) 35 0015 
F(Jl)2-C8O*F (J) -C3*Y(J) -C1*Y (J1) 35 0016 
J=J+1 35 0017 
41 = J1+1 35 0018 
F(J) 2-D(80) -D(82) *0(20)*D(26) 35 0019 
F(J1)2-C2*F (J)) -C3*Y(J) -C1*Y (J1) 35 0020 
J = Је1 35 0021 
Jl = J1+1 35 0022 
Ғ(.)):-0(81) -0(82)%0(21)%0(27) 35 0023 
F(J1)==-CƏ#F(J)-C3#Y(J)=<C1*#Y(J1) 35 0028 
RETURN 35 0025 


END 35 0026 
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SUBROUTINE FREG 

COMPUTE THE OERIVATIVES OF THE DEPENDENT VARIABLES OF THE REGULA- 
TORS OF THE GENERATING UNITS. 

COMPUTE THE AVERAGE THREE-PHASE POWERS AND THE PEAK REACTIVE POW- 
ERS PER PHASE OF THE GENERATING UNITS» AND THEIR CONTRIBUTIONS TO 
THE LOAD OF THE MAIN BUS, ALSO, COMPUTE THE FIELO FORCING CURRENTS 
AND THE FIELD VOLTAGES OF THE GENERATING UNITS. 

COMMON AsBeBOeCeCDesDsEGoEPoF sGeGBeQeVVeWeXeoXLeoXAMeYoZeLeLGl sLG2s9LG3 
l»LPl1»LP2»LP3»TITLE»HEAD 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 


ОІМЕМЭТОМ А (8035) .»8 (99, 35) ВО (8) .,С (50) .»СО0 (399) 0 (120) ЕС (50) Ў»ЕР (536 0009 
10) 9F (316) 9G6(21 35) 6B (39499) 69(316) "»УУ (2159) »М (6679) «Хі (6; 10.35) «36 0010 
гхм (6, 10,9), У (316) 92 (696935) 9b (134) «LC1 (50) 162 (50) +1 63 (50) » (Р1(50) 36 0011 


3•1Р2 (50) •1РЗ (50) •«ТІТЕЕ (39) • НЕАРр (39) 

NT=L (1) 

ТО 39--, COMPUTATION OF AVERAGE THREE-PHASE POWERS AND OF PEAK RE- 
ACTIVE POWERS PER PHASE. 

DO 39 I=1+NT 

J=L (1+50) 

Јг=Ј+1 

J3=J2+1 
B(1»1I1)20.001* (D(35)*Y(J) *D(36) *Y (J2) *D( 37) *Y(J3)) 
B(2«»1)21.9245F -6* (Y ()) *DC 39) *$Y(J2) *D( 40) *Y (3) *D( 38) ) 
0(3) 20 (3) В(1»1) 

0(4)-0(9)»В(291) 

39 CONTINUE 

TO ABOVE 701--» FOR REACTIVE LOAD SHARE CONTROL, 
Sw=10.0 

IF (L(5).LE.0) GO TO 700 

TAP z D(3)-D(5) 

IF(TAP.LE.1.0E-10)60 TO 702 

NU=SL (1) +L (2) +L (3) +L (4) +1 


J=L (NU+»50) 
CA = D(28)-Y(J) 
СВ = D(29) - Y(J+1) 


CG D(30)-Y(J+2) 
60 ТО 701 
700 TAP = D(3) 
IF(TAP.GT.1.0E-10)60 TO 703 
702 Sw=0.0 
D38=ABS(D(38)) 
D39zABS(D(39)) 
D40=ARS (D(40)) 
60 TO 701 
703 CA=D(28) 
CB = D(29) 
CC = D(30) 
TO 52--. COMPUTE THE DERIVATIVES. 
701 DO 52 I=1»NT 
ჰ=L (I+50) 
J8=J+7 
Ј9=Ј+8 
Ј10=Ј•9 
Ј11=Ј•10 
TO 704==, COMPUTE THE FIELD FORCING CURRENT AND THE FIELD VOLTAGE. 
B(13+1)=2.0* (4 (12+1)+A(3191))*(B(59+1)*(A(191)+A(291)+1.5*A (3 
191))* (Y (3)*B(1991)+Y(J+1)*B(2391)+Y(J+2)*B(2191))-D(35)*B(2091)- 
20 (36) +В (24,61) -0 (37) +В (22.1) ) / (3. 0#А (3151) “А (4, 1)“8 (5; І) ) 
В (1451) =А (31 +1) + (В (1351) -Ү(Ј+3) ) +Ү(Ј8) 
704 IF(ABS(B(14+1)).GT.A(32+1)) B(14»1)=SIGN(A(32+1)9B(1491)) 


36 


36 0012 


0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 


36 0039 
36 0040 
36 0041 


0042 
0043 
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157 


Р (ЈУ) = (А (29» 1) + (8 (14» 1) -А(36» 1) ) -У (09) ) /А(30» 1) +А (37 + 1) 36 0059 
F(J8) = (А(27»91)%(А(2291)-Ү(,/10)-Ғ(./9))-Ү(,)8)) /А(2821) 36 0060 
წ (110) =V(.)11) 36 0061 
TO 616--, THREE-PHASE FULL WAVE RECTIFIER ANO REACTIVE LOAD SHARE 36 0062 
CONTROL» 36 0063 
IF(SW.LE.0.0) GO TO 616 36 0064 
Х1,5-:8(1-1) /ТАР 36 0065 
038 = ABS(D(38) +A (23»+1)* (Y (J+2)-XLS*CC)) 36 0066 
039 » ABS(D(39) *A(23» ID * (YCJ) -XLS*CA)) 36 0067 
040 = ABS(D(40)*A(23» I) * (YC Je 1) -XLS*CB)) 36 0068 
616 В(12.1) - АМАХ1(038,039»040) 36 0069 
52 F(J11) = (A(24+1)*B(12+1)-A(259+1)*+Y(J11)-Y(J10))/A(2691) 36 0070 
RETURN 36 0071 


END 36 0072 





ооо 


50 


100 


120 


130 


SUBROUTINE YPRIMG 


37 


THIS IS A MAIN SUBROUTINE IN THE COMPUTATION OF THE DERIVATIVES OF 37 


THE DEPENOENT VARIABLES OF THE GENERATORS OF THE MG SETS. 


37 


СОММОМ А»В»В0» С» СО» О»ЕС»ЕР»Ғ» б» ОВ»0О»УУ» Ы» Х9Х| 9ХМ9 Ү9791>91 61916291063 37 


191 Р1 +1 Р2.1 РЗ. ТІТІ Е. НЕАО 


37 


158 


0000 
0001 
0002 
0003 
0004 


DIMENSION A(809+35) +R (99935) 9B0 (8) 9C (50) 9CD(394)+D(120)+EG (50) +€EP (537 0005 


TO 250--., COMPUTE THE DERIVATIVES OF THE WINDING CURRENTS OF THE 
SYNCHRONOUS ALTERNATORS. 

TO 50--, SET UP THE INDUCTANCE AND ((IMPEDANCE)) MATRICES. 
CALL LMATG 

CALL IMATG 

CALL SATG 

CALL SATEFG 

CALL RLGB 

N1=L (1) +1 

N2=N1+L (2)-1 

ТО 100--, COMPUTE THE CURRENTS OF THE RL LOADS. 

DO 100 I=NleN2 

B(86+1)=0.0 

B(87+1)=0.0 

В(88,1)-0.0 

K=L (1+50)+8 

4-1 

ІҒ(А(69,1).17.0.0) JzJ-1 

B(869J)=B (8695) “У (К) 

B(87+3)=B(8793)+Y(K+1) 

B(88+J3)=B(889J) +Y(K+2) 

CALL XMMAT 

CALL TRIAG 

ТО 200--, SET UP THE MATRIX GB CONTAINING THE COEFFICIENTS OF THE 
EQUATIONS RELATING THE CURRENT DERIVATIVES OF THE RL LOADS. 
DO 120 I=NlsN2 

J=I-L (1) 

00 120 К-1,3 

DO 120 М-1,4 

GR (K93M$.5 J) 0.0 

CALL GBMAT 

DO 200 I=N1+N2 

IF(A(69+,1)2LT.0.0) GO TO 200 

J=1-1 (1) 

то 130--., ADJUST MATRIX GB DURING LINE-TO-LINE FAULTS ON BUSES OF 
MG SETS. 

K=IFIX(A(77+1)+0.00000001) 

IF(K.LE.3) GO TO 150 

68 (2.1, 7) =68В (2.197) +68 (1.17) +1.0 

68 (2.2 )) =6В (2,27) +6В (1:27) +1 .0 

68 (2.3, ]Ј) =6В (2.3.7) +68 (193,7) 

ОВ (2.45 24) 2бВ (24.42) «СВ (14.42) 

58 (3. 3.2) 268 (3,3,24) “1.0 

68 (1.1917) =В (83,1) 

GB(1»2»J) 3-B (84, I) 

68(1»3»J) 20.0 

68(1+6, Ј)=28(81» 1) 98(87 +» 1) -В8 (80,1) #8(86+1) 

GO TO 200 


150 GB(191sJ)=GB(1slsJ)+1.0 


37 


10) 6F (316) 96(21 935) 96B (39499) 6Q(316) VV (2199) 9W(69699) XL (6910935) 337 0006 
2XM (601099) s¥(316) oZ (696935) о! (134) o LG1 (50) 9 LG2(50) 6 LG3(50) eLP1(50)37 0007 


3eLP2(50) »LP3(50) sTITLE (39) sHEAD(39) 37 0008 


0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
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68(2.2»,../) =6B (292eJ) “1.0 37 0059 
68 (343,.) 08 (3,3, J)+1.0 37 0060 
200 CONTINUE 37 0061 
CALL GBSOLV 37 0062 
250 CALL FGEN 37 0063 
TO 300--» COMPUTE THE PHASE AND LINE-TO-LINE VOLTAGES OF THE BUSES 37 0064 
OF THE MG SETS. 37 0065 
DO 300 1-М1»М2 37 0066 
ЈЕ (А(69, 1) . Те 0,0) GO TO 300 37 0067 
B(C745 1) =28(80+1) #8(86»1) •8(83» 1) +"8(89+1) 37 0068 
A(75+1)=B(81,1)*B(87+1)+B(84+1)*B(909+1) 37 0069 
A(76+1)=B(82+1)*+B(89,1)+B(85+1)*B(9191) 37 0070 
B(77+1)=B(74+1)-B(7591) 37 0071 
B(78» I) ZB( 75$. I) -B( 76s I) 37 0072 
A(79+1)=B(76+1)-B(7491) 37 0073 
300 CONTINUE 37 0074 
CALL FREGG 37 0075 
RETURN 37 0076 


END 37 0077 





SUBROUTINE LMATG 


SET UP THE INDUCTANCE MATRICES» WITHOUT FIELD SATURATION EFFECTS» 
OF THE SYNCHRONOUS ALTERNATORS OF THE MG SETS. 
СОММОМ А»В»В0» С» СО»П>ЕС»ЕР»Ғ» б» ОВ» 0»УУ9М» Х9Х(9ХМ»9Ү»791>91 61910622163 


ІЗІРІЗІР2ӘЭІРЗЭТІТ(І ЕЭНЕАПО 


38 
38 
38 
38 
38 


160 


0000 
0001 
0002 
0003 
0004 


DIMENSION А (80.35) В (99, 35) ,80 (8), С (50) СО (З.»4).,О (120) ›ЕС (50) ›ЕР (538 0005 
10) 9F (3160,G(21»35)56B(3»459) 9Q(3160) »VV(21»9) 9W(6969»9)9XL (6910535) *38 0006 
2xXM(6+10+9)+Y(316) ,2(6+69+35) 9L (134) +161 (50) +» (602 (50) + (063(50) + (Р1(50) 38 0007 


39LP2(50) »LP3(50) sTITLE (39) »sHEAD( 39) 
СС:0,866025404 

N1=L (1) +1 

М2-М191(2)-1 

DO 10 I=N19+N2 

J=I-L()) 

каў (1950) «14 

ХМ(191»./)-А(З31,1) 

XM(2919J)=-4 (3291) 
XM(3,1+J)=XM(2919J) 

ХМ(2»2» ))-ХМ(191»9./) 
XM(3929J)=XM(2919J) 

XM(393eJ) =XM(1lolsJ) 

B(49, I)=COS(Y(K)) 

В (5091) =51М(Ү(К) ) 

С1=0.5%В (49,1) 

C2=CC*R(4991) 

C3=0.5*R(5091) 

C4=CC#R (5061) 

B(51»I)=-C1-C4 

B(52+1)=-C3+C2 

В (53.1) =-Сс1 +С4 

B (5491) ==C3=-C2 

Хм(4,1».))--А(3З4, І)%8(49,1) 
ХМ(4»2»2/)--А(34, І)%8(53,1) 

Хм (463,7) =-А (34,1) #8 (51.1) 

ХМ (4949.7) =А (3791) 

ХМ (5.1.7) =-А (35.1) #8 (49.1) 

ХМ (592 .)Ј) =-А (35.1) +В (53,1) 

ХМ ( 5.35.) =-А (35.1) +В (51.1) 
XM(5949J)=A(3891) 

XM(5,5,J)=A(39,]) 
хМ(6•1+))24(36+1)98(50+1) 
XM(6+2+J)=A(36,1)*B(5491) 

ХМ (6»3• Ј)24(36+, 1) 28(52+ 1) 

ТО АВОМЕ 8--. SALIENCY EFFECTS. 
В(55.1)=2.0%+8В (49,1) +8 (49,1) -1.0 
B(56+1)=2.0*B(49,1)+*B(5091) 
C1204,5*R(55, I) 

C2=CC*%*B(55 1) 

С3=0.5 +В (56,1) 

C4=CC#B (5691) 

B(57.I)2-Cl-C^ 

B(58,I)=-C3+C2 

B(59, I)=-C1+C4 

BR(60, I) =-C3-C2 

XM(19»19*»J) ZXM(19»19*J) *A (339 I) *R(55, I) 
XM(2eleJ)=XM(29l1l9J) «A (33.9 I) *B(59, I) 
XM(331»J) ZXM( 3»1*5J) «A (339 I) *B(57, I) 
XM(2929+J)=XM(2929J)+4(33+1)*B(5791) 


38 
38 
38 
38 
38 
38 


38 0008 


0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 





10 


ХМ(3,2»,.,/)-ХМ(3,2».)) +А (33.1) #В (55,1) 
ХМ (3939.7) =ХМ (3.3 7) +А (33.1) +В (59,1) 


ХМ (192 .]Ј) = ХМ (2.1.7) 
ХМ (19 394) ЗХМ (3,1, 4) 
XM(l+4+9J)=XM(49+19J) 
XM(1l+5+»J)=XM(S+ 19) 
ХМ(2,.3,.,/)-ХМ(3,2» 3) 
ХМ (2.45.1) ЕХМ (4.2..)) 
ХМ (2.55.1) -ХМ(5,2» 3) 
XM(3s% + J)=XM (4, 3, J) 
XM(3+95+J)=XM(S+39J) 
ХМ(4,5,.) :ХМ(5,49,)) 
XM(l+6+J)=XM(6+19/) 
XM (20695) =XM(6929J) 
XM (3+96+4 J) =XM (6+ 3+ ل‎ ( 
XM(4ş69J)=XM (6,94, J) 
ХМ(5»6».)) -ХМ(6,5,.)) 
CONTINUE 

RETURN 

END 


161 


0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 





10 


162 


SUBROUTINE IMATG 39 0000 
SET UP THE ((IMPEDANCE)) MATRICES» WITHOUT FIELD SATURATION EF- 39 0001 
FECTS» OF THE SYNCHRONOUS ALTERNATORS OF THE MG SETS. 39 0002 
СОММОМ А»В»В0»С»СО»бО»ЕСО»ЕР»Ғ» б» ОВ» 0»УУ»8» Х%Х( ХМ9 Ү»7>91>1.61>162>1463 39 0003 
l»LP1»LP2»LP3»TITLE»sHEAD 39 0004 


DIMENSION А(80»+35)+»8(99» 35) »80 (8) +» С(50) »С0(3+%) •0 (120) »Еб(50) »ЕР(539 0005 
10) oF (316) 96(21935) 36B (39499) 90(316) 9VV(21 99) 9W(69699) oXL (6910935) 939 0006 
2XM (691099) oY (316) 9Z (696935) 9L (134) + 601(50) + (62 (50) +163 (50) »1Р1 (50) 39 0007 


3, Р2(50)» РЗ(50) ,Т1Т(Е (39) »НЕАО (39) 39 0008 
Nl=L (1)+1 39 0009 
N2:N1*L (2) -1 39 0010 
DO 10 I=NL»N2 39 0011 
Ј=1-( (1) 39 0012 
TO ABOVE 3--, SALIENCY EFFECTS. 39 0014 
СС--2.,09А(33,.1)98(5-1) 39 0015 
W(29»1»J) ZCC*B(605sI) 39 0016 
М (3.1 #7) =СС®В (581) 39 0017 
W(3929J) =CC#B (569!) 39 0018 
М(19193) 5А(9191) «М(3»92».)) 39 0019 
М (29029 .)) =А (4151) +0 (351.7) 39 0020 
М(3.39.)Ј) =А (411) +0 (2591.7) 39 0021 
60 TO 4 39 002? 
М(1 91973) =А (411) 39 0023 
М (2919.7) =0.0 39 0024 
М(391»9./):0.0 39 0025 
Ч (2.2...) -А1(941».1) 39 0026 
W{3»2»J)=0.0 39 0027 
W(3939J)=A(41l91) 39 0028 
СС=А (34,1) +В (551) 39 0029 
М (4919.7) =ССеВ (501) 39 0030 
Ч (992../) :СС9ФВ (541) 39 0031 
W(4+939J)=CC*B(52+1) 39 0032 
СС-А(35»1)%8(5,1) 39 0033 
М(591».))-СС“В(50.,1) 39 0034 
Ч (5929./) -СС98(54»1) 39 0035 
Ч (593..,/1:0098(52»1) 39 0036 
СС=А (3651) +В (5.1) 39 0037 
М (691.17) =СС®В (49,1) 39 0038 
W(6»2+J)=CC*B 15391) 39 0039 
W(693»J) ZCC*B (515 I) 39 0040 
Ч(1999./) 55 (98153) 39 0041 
W(1»5»J)2W(551»9J) 39 0042 
Ч (2.9...) 44 (9.23) 39 0043 
W(2959J3)=W(5929J) 39 0044 
Ч (3.99. =VI(რი3ი.)) 39 0045 
М (3955.7) =м (5.3.7) 39 0046 
М(192»/)-М(2,1..)) 39 0047 
М(193».//)-М(391,.)) 39 0048 
М (2, 3971) 54(3,2,/) 39 0049 
Ч (1969. 54(6,1 39) 39 0050 
W(2 e695) =W(6e20J) 39 0051 
V (3«69.))=V/I(რი39.)) 39 0052 
CONTINUE 39 0053 
RETURN 39 0054 


ЕМО 39 0056 





0000 


10 
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SUBROUTINE SATG 40 0000 
DETERMINE 1F THE FIELOS OF THE SYNCHRONOUS ALTERNATORS OF THE MG 40 0001 
SETS ARE SATURATED,» AND COMPUTE THE FIELO FLUX LINKAGES» THE EQUI- 40 0002 


VALENT FIELO SATURATION CURRENTS» AND THE DERIVATIVES OF THE 40 0003 
LATTER WITH RESPECT TO THE FORMER. 40 0004 
СОММОМ А,В» ВОС» СО 0 ЕСЕР. ЕС ОВО. УУ омо Х 9 ХІ 9 ХМоу 291 6161 625163 40 0005 
191 РІ» Р29 РЗ s TITLE HEAD 40 0006 


ОІМЕМЅІОМ А (80535) • в (99,35) BO(8)»*C(50)*CD(3»4)90(120) *EG(50) 9EP(540 0007 
10) oF (316) 96(21 935) 96GB (39499) 0 (316) » УУ (2 1», 9) М (69699) Хі (65 10935) 940 0008 
2ХМ (6,1099) + Ү (316) 2 (696535) , ( (139) +» (61 (50) + (62 (50) » (603(50) + (Р1(50) 40 0009 


3e9LP2 (50) »«LP3(50) » Т1Т(Е (39) HEAD (39) 40 0010 
N1=L (1)+1 40 0011 
N2=N1+L (2)-1 40 0012 
DO 10 I=N19N2 40 0013 
421 (1950) 7 40 0014 
B(34,1)=0.0 40 0015 
N=I-L (1) 40 0016 
DO 4 K=195 40 0017 
M=J+K 40 0018 
B(34+,1)=B(349+1)+XM(49+K9N)*Y (M) 40 0019 
IF(B(34. I) GT.A(45. I)) GO TO 6 40 0020 
B(35»1)=0.0 40 0021 
B(36+,1)=0.0 40 0022 
L (N*86)21 40 0023 
GO TO 10 40 0024 
C1=A(4591)-0.5/(A(46+1)*A(3791)) 40 0025 
C2=C1*C1+B(34+1)/(A (469+1)*A(3791))-A(459+1)*A(4591) 40 0026 
C2=SQRT (C2) 40 0027 
B(34+1)=C1+C2 40 0028 
В (35,1) =А (46,51) # (В (3491) -А (4591) ) + (8(34 » 1) -А(45» 1) ) 40 0029 
B(36+1)=2.0*A(46+1)*+(B(3491)-A(459+1)) 40 0030 
L (N*86)22 40 0031 
CONTINUE 40 0032 
RETURN 40 0033 


END 40 0034 
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SUBROUTINE SATEFG 41 0000 
ADD THE FIELD SATURATION EFFECTS TO THE INDUCTANCE AND ((IMPED- 41 0001 
ANCE)) MATRICES OF THE SYNCHRONOUS ALTERNATORS OF THE MG SETS. 41 0002 
СОММОМ А»В»В0»С»СО»ПО»ЕСО»ЕР»Ғ»б»СОВ» 0»УУ98»Х9Х19ХМ9Ү»9791>9( 61916221063 41 0003 
l+LPl1»+LP2+LP3,TITLE,HEAD 41 0004 


DIMENSION A(809+35) 9R (99935) ,B0(8) 9C (50) ,CD(3+4) ,D(120) ,EG (50) »EP (541 0005 
10) +F (316) +G(21+35) 9GB(3+4+9)+0(316) »VV(2199) 9€(69699) $3XL (69105395) »41 0006 
2XM(6+10+9) 9Y (316) +Z(69+69+35) +L (134) 161 (50) +162 (50) $LG3(50) sLP1(50)41 0007 


Зе (Рг(50)+ (Р3(50) +ТТТСЕ (39) + НЕАО0 (39) 41 0008 
N]=L (1) +1 41 0009 
N2=N1+L (2)-1 41 0010 
DO 10 I=N19+N2 41 0011 
Ј=1-( (1) 41 0012 
L80=L (J+86) 41 0013 
60 ТО (1095) 180 41 0014 
С1:4(34.1) 28 (36.1) /(1.04А(37.1)98(36»,1)) 41 0015 
C2=C1*A(3491) 41 0016 
C3=C1*B8 (4991) 41 0017 
C4:=C2*B (4991) 41 0018 
ХМ (1919 ))=ХМ (1+1• Ј) -C4*B (494, I) 41 0019 
ХМ (2+1• Ј)=ХхМ(2+1+ Ј) - Са 8(53% 1) 41 0020 
ХМ(3»91».))-ХМ(3,1».)) -С0“8В(51,1) 41 0021 
XM(4+919J)=XM(4919J)+C3%A4 (37,1) 41 0022 
XM(S5.1+J)=XM(591+J)+C3*A4(385,1) 41 0023 
СЗ=С1#В (53,1) &1 0024 
Са=С2%В (53,1) 41 0025 
ХМ(2.2».,/) -ХМ(2.2»,)) -С488(53,1) 41 0026 
ХМ(3,2,.)) =XM(3929J) -C49B (5191) 41 0027 
XM(4929J)=XM1(4929J)+C3%A(37,1) 41 0028 
XM(Se2eJ) =XM(Se20J) «СЗЗА (38; І) 41 0029 
XM(3939J) =XM(3J939J) -C2*B(51,1)*B(5191) 41 0030 
C32C1*8(515I) 41 0031 
ХМ(993,.)) :ХМ(94,3,».)) «С38А(37»1) 41 0032 
ХМ(5»3»).))-ХМ(5%»3».)) «СЗ3“А(38,1) 41 0033 
СЗЁСІЗА (37, 1) /А(За»І) 41 0034 
XM(4949J)=XM(4949J)-C3%A4 (37,1) 41 0035 
ХМ(5»4».)) -ХМ(5»94».)) -СЗ“А(38,1) 41 0036 
ХМ (5+5, .Ј) = ХМ (5.5.7) -С1#А (38,1) +А (38,1) /А (34,1) 41 0037 
С1:0198(5,1) 41 0038 
сг=0С2%8(5+1) 41 0039 
С3-0198(50»1) 41 0040 
C4=C2*B(5091) 41 0041 
W(l+1»J)=W(1l+1,J)+C4*B(4991) 41 0042 
W(2+1+»J)=w(2+1+J)+C4*B (5391) 41 0043 
м (3919.7) =н (3.1517) +С4%В (51,1) 41 0044 
W(4+1»J)=W(4+,1+J)-C3%A(3791) 41 0045 
V(5«19.))=V(5914.))=C39#(3891) 41 0046 
С3:С198 (54; І) 41 0047 
C4=C2*B (5491) 41 0048 
W(1»29*J) W(1»2»J) *«C4 *B(495I) 41 0049 
W(2+129J)=W(2+2+J)+C4*B (5391) 41 0050 
W(J129J)=W(3+29J3)+C4*B(5191) 41 0051 
W(6+929J3)=W(4929J)-C3%A(3791) 41 0052 
М(592»./) =н (5.25.7) -С35А(38,1) 41 0053 
СЗ-С1%8(52.,1) 41 0054 
Са=с2%8(52+1) 41 0055 
W(l+3+J)=W(1+3,J)+C49B (4991) 41 0056 
и(2•3• Ј)=7 (2,3, Ј) “СағВ(53,1) 41 0057 


W(393»J) 2W( 3539 J) *C4*B(515 I) 4] 0058 
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W(4+3J+J)=W(4+39J)-C3%A (37,1) 
W(S9 39S) =W(5939J) -C38A (3891) 
XM(l+2+J3)=XM(29+19J) 
XM(1939.))=XM(34124.)) 
XM(1969.))=XM(64914.)) 
XM(1»59» J) zXM(55»19»J) 

XM (2939S) =XM(3920J) 

XM (2949S) =XM(4920J) 
xM(2+59J)=XM(5+2+J) 

XM( 3.249» J) ZXM( 4939 J) 
XM(3+5+J)=XM1(59+39J) 

хм (6 +,5• Ј)=ХМ(5+%• Ј) 
C1=A(34+1)*B(59+1) 
B(37+1)=C1*B(509+1) 
B(38+1)=C1*B(549+1) 
B(39+1)=C1*B(5291) 

CONTINUE 

RETURN 

END 
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20 
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SUBROUTINE RLGB 

COMPUTE THE INSTANTANEOUS VALUES OF THE PHASE RESISTANCES AND IN- 
DUCTANCES OF THE RL LOADS OF THE MG SETS. 

СОММОМ А»В»В0О»С»СО»П»ЕС»ЕР»Ғ»б» О8» 0»УУ9 4» Х9Х( 9ХМ9Ү»97919161>91.062,21063 
144 Р141чР2 1 РЗ,Т1Т( Е,НЕАО 


42 
42 
42 
42 
42 


166 


0000 
0001 
0002 
0003 
0004 


DIMENSTON A(809+35) 9R(99+35) 980(8)9+C (50) 9CD(39+4)+D(120)+EG (50) +EP (542 0005 
10)+F (316) +G(21+35)+GB(3+4+9) 90 (316) 9VWV(21+9)+W(696+9)+XL(6,10+35)+42 0006 
2XM (691099) s ¥ (316) 9Z (696935) ok (134) +161 (50) » (62 (50) » (03(50) •(Р1 (50) 62 0007 


3eLP2(50) »sLP3(50) e TITLE (39) » НЕАО (39) 
Nl=L(1)¢1 

N2=N1+L (2)-1 

DO 100 I=NleN2 

С1=А (70,1) 

С2=А (711) 

DO 10 J=80+82 

B(J+3,1)=C2 

B(J+1)=C1 

IF(X.LT.A(7391)) GO TO го 

TO 15--9 STEP CHANGES IN THE RL LOADS. 
C1=1.0+A(7491) 

00 15 .):80»85 

B(J+1)=C1*B(J91) 

IF(X.LT.A(7891)) GO TO 30 

TO 25==, SINUSOIDAL VARIATIONS OF THE RL LOADS. 
С1=А (79.1) + (Х-А (78,1) ) 

С2=1.0•А (8091) +51ІМ(С1) 

С1=А (79,1) +*А (80,1) +С05 (С1) 

00 25 Ј=80+82 

K=J+3 

8B(J+,1)=C2*B(J+1)+C1*B(Kp91) 
B(Ks+1)=C2*B(K91) 
IF(X.LT.A(75, I) .OR.X.GT.A(76,I)) GO TO 100 
TO 100--, ADJUST VALUES DURING ONE» TWO» OR THREE PHASE FAULTS ОМ 
BUSES OF MG SETS. 
K=IFIX(At(77s1)+0.00000001) 
IF(K.LE.0.OR.K.GT.3) GO TO 100 

GO TO (70,60,50) +K 

B(82+1)=0.0 

B(85,1)=0.0 

B(8B81+1)=0.0 

В (84.1) =0.0 

В (8091) =0.0 

В (8361) =0.0 

CONTINUE 

RETURN 

END 


42 0008 


0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
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0030 
0031 
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0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
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SUBROUTINE XMMAT 43 0000 
SET UP THE MATRIX XM CONTAINING THE COEFFICIENTS OF THE EQUATIONS 43 0001 
RELATING THE WINDING CURRENT DERIVATIVES OF THE SYNCHRONOUS ALTER= 43 0002 
NATORS OF THE MG SETS TO THE CURRENT DERIVATIVES OF THE RL LOADS 43 0003 


OF THE RESPECTIVE BUSES. 43 0004 
COMMON AsBsBOeCeCDeDeEGoEP oF eGeGBeQeVVeWeXeoXLaoXMeVoZeLeLGleLG2eLlG3 43 0005 
leLPl sLP2esLP3esTITLEsHEAD 43 0006 


DIMENSION A(80935) 9B (99935) ВО (8) oC (50) CD (394) ›0 (120) + ЕС(50) »ЕР (543 0007 
10) «Ғ(316)»6(21»35)»СВ(3»4»9)» 0 (316) УУ (2199) 9W (69699) oXL (6910935) +43 0008 
2XM(691099) sY(316) 92 (696935) oh (134) + (61 (50) +» (602 (50) •.1 63 (50) +» (Р1(50) +43 0009 


3.1 Р2 (50) +1 РЗ (50) » ТІТ_ Е (39) • НЕАО (39) 43 0010 
МІгі (1)%1 43 0011 
N2=N1+L (2)-1 43 0012 
DO 100 I=NleN2 43 0013 
J=L (1+50)+8 43 0014 
K=I-1 (1) 43 0015 
M=I &3 0016 
IF(A(69+I).LT.0.0) M=M-1 43 0017 
C1=B (80 oM) *B (869M) 43 0018 
C2=B (81M) *B(87eM) 43 0019 
C3=B (820M) *B8(88 eM) 43 0020 
TO 2--» CONTRIBUTIONS FROM THE GROUNDING REACTORS. 43 0021 
C4=A (6191) 43 0022 
ІҒ(С4.1Е.0.0) GO TO 3 43 0023 
00 2 І1:1.3 &3 0024 
00 2 12=1,3 43 0025 
XM(Il+I29K)=XM(Il+I29K)+C4 43 0026 
DO 10 Il=1»6 43 0027 
00 5 12=7,10 43 0028 
XM(Il»I2»K)=0.0 43 0029 
CONTINUE &3 0030 
ХМ(1»7К)--СІЗВ(З5»9І)%В(37,1) 43 0031 
XM(1+89+K)=-B(8309M) 43 0032 
XM(29+79K)=-C2+B(3591)*B(3891) 43 0033 
XM(2+99+K)=-B(849M) 43 0034 
ХМ (3979К) =-С3 +В (35,1) +В (39,1) 43 0035 
XM(3910+K)=-B (85M) 43 0036 
TO 35--., CONTRIBUTIONS FROM THE FIELD VOLTAGE». (EXCITER MODEL.) 43 0037 
IF (ABS(YCJ* 7) ) ,GT.A(60, I)) Y(J* 7) SSIGN(A(609 ID» YCJ* 7) ) 43 0038 
ІҒ(АВЅ (В (4291) ) „Т.А (5991) ) 60 TO 30 43 0039 
XM(4979K)=SIGN(A(599+1)9B(4291)) 43 0040 
GO TO 40 43 0041 
C4220.0*(A(429»9 I1) *A(589I))/(34,0*A (349 I) *B(59 12) 43 0042 
C5S=C4*+ (A(31+1)+A(3291)+1.5*A(33+1))*B(591) 43 0043 


XM(4979K)=C5* (Y(J)*R(4991) +Y(J+1)4B (5391) .Y(J+2)*B(5191))-C4*(B(80 43 0044 
1,M)*B(86,M)*B (5091) +B(819M)*B(87+M)*B(54+1)+B(829+M)*B(889M)*B (5291 43 0045 


2))»у(Ј+7)-А(58,1)%у (Ј•3) 43 00%6 
XM(4989+K)=-C4*B(83,M)*B(5091) 43 0047 
XM(4999K)=-C4*B(849+M)*B(549I1) 43 0048 
XM(4+109+K)=-C4*B(85,M)*B (5291) 43 0049 
бо 60 11:16 43 0050 
DO 50 12:1.6 i &3 0051 
N=J+I2-1 &3 0052 
XM(I1l+979K)=XM(I1+979K)-W(Il+I2>K)*Y(N) 43 0053 
CONTINUE 43 0054 
CONTINUE &3 0055 
RETURN &3 0056 


END &3 0057 
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SUBROUTINE TRIAG && 0000 
FOR EACH SYNCHRONOUS ALTERNATOR OF THE MG SETS» TRIANGULARIZE THE 44 0001 
CORRESPONDING PART OF THE MATRIX XMo 44 0002 
THE RUN IS ABORTED IF ANY SUCH PART OF XM IS SINGULAR, AND A COM- 44 0003 
MENT IS WRITTEN IN ТАРЕ 6. 44 0004 
COMMON А»8В»В0»С» СО» О«ЕО»ЕР»Ғ»бС6» ОВ» 0»УУ» к» Х9Х(»ХМ»9Ү»7>91>1 61916291 63 44 0005 
leLPlsLP2sLP3sTITLE»HEAD 44 0006 


DIMENSION A(80235) 9B (99935) . ВО (8) .С (50) , СО (39 6) 0 (120) + ЕС (50) » ЕР (544 0007 
10) oF (316) 6G6(21935) 96GB (39499) 6Q(316) УУ (21,9) М (69699) oXL (6910935) 944 0008 
2XM (691099) 9 V¥(316) 9Z (696935) oh (134) [61 (50) +» (602 (50) 9LG3(50) »LP1(50)44 0009 


3eLP2(50) oLP3(50) » TITLE (39) » HEAD (39) 44 0010 
FORMAT (1H1»24HABNORMAL EXIT FROM TRIAG/31H THE XM MATRIX OF MG SET 44 0011 
1 NUMBER + I3 + 12H IS SINGULAR) 44 0012 
NS=L (2) 44 0013 
DO 23 I=1,NS 44 0014 
J=7 44 0015 
J=J-1 && 0016 
IF (ABS(OXM(JS JS I))-1,0E-30) 454512 44 0017 
IF(J-1) 5,556 44 0018 
SINGULAR MATRIX. ABORT RUN. 44 0019 
WRITE (63100) І 44 0020 
CALL EXIT 44 0021 
4154 44 0022 
Jl=Jl-1 44 0023 
IF(ABS(XM(J1»J»I))-1.0E-30) 89899 44 0024 
IF(J1-1) 555,7 44 0025 
DO 10 K=leJ 44 0026 
V1=XM(.14–M§LI) && 0027 
XM(J+K9+T)=XM(Jl+K+T) 44 0028 
ХМ(31.К,1):41 44 0029 
DO 11 M=7–10 44 0030 
W]=XM(JsK, 1) 44 0031 
XM(JeK 6 I)=XM(J] +K 1) 44 0032 
ХМ(.,1».К»,1)-41 44 0033 
JJ2J-1 44 0034 
IF(JJ) 15915913 44 0035 
DO 14 K=1+ JJ && 0036 
ХМ Јоко 1) = ХМ (Јоко 1) /ХМ (Јо Ј+ 1) 44 0037 
DO 16 K=7,10 44 0038 
XM(JoK+T)=XM(JoK+T)/XM(Jo9Jo 1) 44 0039 
IF(JJ) 23923917 44 0040 
41:4-1 44 0041 
IF(XM( JI» Js I)) 19922919 44 0042 
DO 20 K=lsJJ 44 0043 
XMCJISK»I)2XM(J1 SK» T) -XM(CJ1I 9» Je TID) *XM ( JSK 9 I) 44 0044 
DO 21 K=7,10 44 0045 
XM(Jl+K>»T1)=XxXM(Jl+K9+T)-XM(Jlo+J>+1)XM(JoKo 1) 44 0046 
J1=J1-1 44 0047 
IF(J1) 393918 && 0048 
CONTINUE && 0049 
RETURN && 0050 


END && 0051 
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SUBROUTINE GBMAT 45 0000 
FOR EACH BUS OF THE MG SETS, COMPUTE THE CONTRIBUTIONS TO THE COR- 45 0001 
RESPONDING PART OF THE MATRIX GB FROM THE SYNCHRONOUS ALTERNATORS 45 0002 


CONNECTEO TO THE BUS. 45 0003 
COMMON А«,В»ВОС,СО»О»ЕОСб»,ЕР,Е,б.,.бВ,С0й» ММ» ММ Х.Х .ХМ.Ү».7 15 10151025163 95 00094 
leLPleLP2esLP3eTITLEsHEAD 45 0005 


ОІМЕМЭТОМ А (80, 35) эВ (99.35) .ВО (8) С (50) СО (3.4) 0 (120) Ў»Еб (50), ЕР (545 0006 
10) oF (316) ,6 (2135) 96B (39499) 60(316) »VV(21 99) 9W(69699) XL (6910935) 945 0007 
2XM (691099) 9 ¥(316) 92 (696935) of (134) +161 (50) »LG2(50) 9LG3(50) 1Р1 (50) 65 0008 


3.1 Р2 (50) •1 РЗ (50) e TITLE (39)  HEAD(39) 45 0009 
N1=L (1)+1 45 0010 
N2=N1+L (2) -1 45 0011 
DO 35 I=N1+N2 45 0012 
J=1-L (1) 45 0013 
K=J 45 0014 
M=IFIx(B(98,I)+0.]) 45 0016 
IFtI-M) 33924933 45 0017 
ІҒ(В(95,1)) 25»25,27 95 0018 
68(1941»К)-бВ(191»К)-ХМ(1»8».)) 25 0019 
6В(1»2»К)-бВ(1»2»К)-ХМ(1999,)) 45 0020 
ОВ(193»К)-бОВ(1%43»К)-ХМ(1910».)) 25 0021 
68(199.К) :08(1,94К) «ХМ(1,7».) 45 0022 
127 (8(96+1)) 2692693) 45 0023 
GB(291+K)=G6B(2+,1+K)-XxXM(2+8+J)+XM(29+19J)*XM(1989J) 45 0024 
GB(2»2*K) GR(2»2*K) -XM( 2999 J)) *XM(2*919 J) *XM(1999J) 45 0025 
GB(29339K)2GB(2»3.94K) -XM( 29109 J) *XM(2919*9J) *XM (19109 J) 45 0026 
GR(2»49K)GB(2»49K) «XM(2979 J) -XM(2919J) *XM (1979 J) 45 0027 
IF(8(97,1I)) 34934935 45 0028 
127 (8(96+1)) 28928930 45 0029 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE B WHEN PHASE A OF AN 45 0030 
ALTERNATOR IS DISCONNECTEO FROM THE BUS. 45 00231 
GB(2»1»K)2GB(2»s19»K) -XM( 2989 JJ) 45 0032 
6В(2»2»К)-бВ(2»2»К) -ХМ(2»9».,)) 45 0033 
68(293 К)-бВ(293К)-ХМ(2910,.)) 45 0034 
GB (2949K) =GB(2949K) #XM(2979J) 45 0035 
IF(B(97+1)) 29929935 45 0036 
FOUR LINES DOWN-=+* CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE A OF 45 0037 
AN ALTERNATOR IS DISCONNECTED FROM THE BUS. 45 0038 
68(3,.1.К) 508(3»1,К)-ХМ(3,8».,)) *XM(39295) XM (29895) 45 0039 
GR (320K) =6B(3920K) —-XM (39995) XM (39295) XM (29995) 45 0040 
GR (3939K)=GB(3e39K)=-XM( 391095) *XM( 39295) *XM (29109) 45 0041 
GB(3»449K)2GB(3»4 94K) «XM( 3979 J) -XM( 39 29 )) *XM(2979J) 45 0042 
G0 TO 35 45 0043 
FOUR LINES DOWN--» CONTRIBUTIONS FROM PHASE C WHEN PHASES A AND B 45 0044 
OF AN ALTERNATOR ARE DISCONNECTED FROM THE BUS. 45 0045 
ІҒ(В(97,1).67.0.0) GO TO 35 45 0046 
6В8(391К)-68(391»К)-ХМ(3»8».)) 25 0047 
6В8(3»2»К)-бОВ(3%2»К)-ХМ(3»99.)) 45 0048 
68 (3,3.К) 508 (3-43,.К)-ХМ(3»1093) 45 0049 
GB(3+,49+K)=GB(3+4+K)+XxM(3379J) 45 0050 
GO TO 35 45 0051 
1F(B(97+1)) 32932935 45 0052 
FOUR LINES DOWN--.« CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE B OF 45 0053 
AN ALTERNATOR IS OISCONNECTED FROM THE BUS. 45 0054 
GB (391K) =G6B(391 9K) —-XM(3980J) +ХМ (3919.7) %“ХМ(1>»8,.)) 45 0055 
6В (З392.,К) 508 (3.42,К) -ХМ(3,9,.,)) «хМ(3»1 +" Ј) #ХМ (1999 )) 45 0056 
08 (393.9К) 508 (3,.3,К)-ХМ(3»10,.)) «ХМ(391».) 2ХМ(191095) 45 0057 


GB (3949K) =G6B(3 949K) «XM( 3» 79 J) -XM( 3919 J) *XM (1979 J) 45 0058 





60 ТО 35 

33 08(151 К) 508(1» 19 К) -ХМ(1985»53) 
68(192»К)-б8(1»2»К) - ХМ (1.99.7) 
GR(1» 34K) GR(1»3 33K) -XM(1»105 J) 
GB(1»49»K)26G8(1»49»K) oXM(1979J) 
GB(2»1»K)2GB(29»1»K) -XM(2»989J) ХМ (2 +» 1» Ј) #ХМ (1989 )) 
68(2»92»К)-бВ(2»2»К) -ХМ(2»9»,)) «ХМ(291».)) %ХМ(1»99»).)) 
68(293»К)-бОВ(2%93»К)-ХМ(2»910».)) «ХМ(20»1»./)) %ХМ(1910».,)) 
6В(2»8эК)-ОВ(2»4»К) «ХМ(2%7».)) “ХМ(2091»./)) “ХМ(197»9.)) 

За ОВ(3»1»эК)-б8(3»91»К)-ХМ(3»8»./)) «ХМ(3»92».)) “ХМ(2»8».)) «ХМ(1>»8».)) % (ХМІЗ» 
11»9.))-ХМ(2,91»9.)) “ХМ(3,2».))) 
68В8(3»2»К)-б8(3»2»К) -ХМ(3»9»,)) «ХМ(392».)) “ХМ(2»9».)) «ХМ(1»99».)) “(ХМ(З» 
119.))-ХМ(291».))% ХМ(3,2».))) 
68(3»3.,K) 6B (3»3»K) -XM(39109 J) *XM ( 3429 J) *XM (29109 J) *XM( 19109 J) + (ХМ 
1(3919»J) -XM (2919 J) *XM( 3929 J)) 
08 (3999К) 6B( 394 9K) *«XM( 3979 J) -XM (3929 J) *XM (2979 J) -XMC 1979 J) * XM (C39 
11» Ј)- ХМ (2) 1 Ј) ХМ (3%2+ Ј) ) 

3S CONTINUE 
RETURN 
END 
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SUBROUTINE GBSOLV &6 0000 
SOLVE FOR THE CURRENT DERIVATIVES OF THE RL LOADS OF THE BUSES OF 46 0001 
THE MG SETS BY TRIANGULARIZING THE CORRESPONDING PARTS OF THE 46 0002 
MATRIX GB. 46 0003 
THE RUN IS ABORTED IF ANY SUCH PART OF THE MATRIX GB IS SINGULAR» 46 0004 
AND A COMMENT IS WRITTEN IN TAPE 6. 46 0005 
COMMON А,.В»ВО,С»,СО.О»ЕО.ЕР.Е, 0,080, УУ» Ми. Х.Х » ХМ, У +2• 51015162 5103 46 0006 
1. Р]›ЕР2›ЕРЗоТТТЕЕ HEAD 46 0007 


DIMENSION A(80,35) »8199, 35) ›,ВО(8).С(50).›С0 (3.4) ›О (120) ›ЕС (50) ЕР (546 0008 
10), (316) »6 (2135) 68 (3.459) 0 (316) »УУ (21,9) М (65659) +» Х (6, 10, 35) 746 0009 
2XM (691099) 9 ¥ (316) 9Z (696935) oL (134) »LG1 (50) »LG2(50) 7163 (50) 1Р1 (50) 46 0010 


3.1Р2 (50) »LP3(50) s TITLE (39) »HEAD(39) 46 0011 
FORMAT (1H1 + 25SHABNORMAL EXIT FROM GBSOLV/31H THE GB MATRIX OF MG BU 46 0012 
15 NUMBER+13,12H IS SINGULAR/1H0+4(1X+E12.5)) 46 0013 
L2=L (2) 46 0014 
DO 100 K=1sL2 &6 0015 
J=KeL (1) 46 0016 
IF(A(69,)).LT.0.0) GO TO 100 46 0017 
1-4 46 0018 
1-1-1 46 0019 
ЇЕ (АВб (6В8(1,15К))-1,0Е-30) 38,38,45 46 0020 
17 (1-1) 39.39.40 46 0021 
SINGULAR MATRIX. ABORT RUN. 46 0022 
WRITE (69101) Ko ( (GBC IT oMoK) oM=194) sI=193) 46 0023 
CALL EXIT 46 0024 
I1=I &6 0025 
I1=I1-1 &6 0026 
IF (ABS(GB(I1sI eK) )-1-0E-30) 42542543 46 0027 
18 (11-1) 39.39.41 46 0028 
DO 44 M=19I 46 0029 
W1=GB(T,M9K) 46 0030 
GR(I+»M+K)=GB(11+,M+K) 46 0031 
GB(Il»M»,K)=W] 46 0032 
W1=GB(1,49+K) 66 0033 
GB(1I,4+K)=GB(11+49+K) 46 0034 
GB(Il»4,K)=Wl 46 0035 
II=I-1 &6 0036 
IF(II) 48548546 46 0037 
DO 47 M=]1» 11 46 0038 
GB((ISMsK)ZGB(ISMSK) /GBCISISK) 46 0039 
GB(1,4+K)=GB(1+,4+K)/GB(I>I>K) 46 0040 
16 (II) 75975,970 &6 0041 
I1=I-1 &6 0082 
ЇЕ (08(111,К)) 72,74.72 46 0043 
DO 73 М-1 11 46 0044 
GR(I1s+*M+K)=GB(I1+M + K)-GB(I1+sI+K)%GB(I+M, K) &6 0045 
6B(I1,4+K)=GB(I1,4+K)-GB(11,1+K)*GB(1,49+K) 66 0046 
11=11-1 46 0047 
17 (11) 37.37.71 46 0048 
B(89+J3)=G6B(1+49+K) 46 0049 
B(90+J3)=GB(2+4+K)-GR(2+1+K)*B(899J) 46 0050 
8(91+, Ј)=208(3, 6, К)-608(3, 1, К) #8(89, Ј) -608 (3,2, К) #8 (90, J) 46 0051 
CONTINUE &6 0052 
RETURN &6 0053 


END 46 0054 





SUBROUTINE FGEN 47 
COMPUTE THE DERIVATIVES OF THE WINDING CURRENTS OF THE ALTERNATORS 47 
OF THE MG SETS. 47 
СОММОМ А»В»8В0»С»СО»О»ЕС»ЕР»Ғ» С» ОВ» О9УУ9М»9Х9Х| ХМ» Ү97919161>9102,91063 47 
l»LP1»LP2,LP3»TITLE,HEAD 47 


172 
0000 
0001 
0002 


0003 
0004 


DIMENSION А (80.35) В(99935) 9B0 (8) 9C (50) 9CD(394)+D(120)9+EG (50) s9EP (547 0005 
10) «Ғ(З316) »С6(21935) »ОВ(3»94»9) +0 (316) + УУ (21,9) М(6»9699) эХі (6910935) 27 0006 
2XM(6+10+9)9Y(316)9Z(6969+35) +L (134) 9L 61 (50) 9L62(50)+L63(50)+LP1(50)47 0007 


3sLP2 (50) 5LP3(50) » TITLE(39) HEAD (39) 47 0008 
№1=1 (1) +1 47 0009 
N2=N1+L (2) -1 47 0010 
DO 61 I=N19N2 47 0011 
J=L (1+50)+8 47 0012 
J1=J+1 47 0013 
42-42 47 0014 
43:43 47 0015 
ل = ال‎ +) 47 0016 
45=/+5 47 0017 
K=I-L (1) 47 0018 
N=1 47 0019 
IF(A(69+1).LT.0.0) N=N-1 47 0020 
L43=I1F1x(B(98+1)+0.1) 47 0021 
IF(T.NE.L43.0R.B(95+1).LE.0.0) GO TO 51 47 0022 
PHASE A OF ALTERNATOR IS DISCONNECTED FROM BUS. 47 0023 
F(J)=0.0 47 0024 
GO TO 52 47 0025 

51 F(J)=XM(1+7+K)+xM(1989K)*B(899N)+XxXM(1+99K)*B(90+N)+XM(1910+K)*B(91 47 0026 
І.М) «7 0027 
52 IF(I.NE.L43.OR.B(96, I) .LE.0.0) GO ТО 54 47 0028 
PHASE B OF ALTERNATOR IS DISCONNECTED FROM BUS, 47 0029 
F(J1)=0.0 47 0030 
GO TO 55 47 0031 
54 F(J1)=xM(2+7+K) + xM(2+89K)*B(899N) +XM(2999K)*B(909N)+XM(29109+K)*B(9 47 0032 
LloN) =F (JS) #XM( 291 9K) 47 0033 
55 IF(I.NE.L43.0R.B(979+1).LE.0.0) GO TO 58 47 0034 
PHASE C OF ALTERNATOR IS DISCONNECTED FROM BUS. 47 0035 
F(J2)=0.0 47 0036 
GO TO 59 47 0037 
58 F(J2)=xM1(3+79K)+XxM(3989+K)*B(899N)+xM(3999K)*B(909N)+XM(39109K)*B(9 47 0038 
11,N)-F (J)*xM(3319K)-F (11)*XxM(3929K) 47 0039 
59 F(J33)=xXM(49+79+K)+XM(4+89+K)*B(899N)+xM(4999K)*B(909+N)+XM(4910+K)*B(9 47 0040 

ll N)=F (J)#XM(G 1 + K)—-F (J1)%XM(G 2 К) СЕ (Ј2) ХМ (6 • Зок) 47 0041 
F(J4)=xXM(S5979K)-F (1)*xXM(S919K)-F (11) *XM(S929K)-F (J2)*xXM(5939K)=-F(J 47 0042 

13) %ХМ(5»4эК) 47 0043 
F(JS)=XM(6979K)-F (J)*XM([(6919+K)-F (11)*XxXM(6929K) -F (12)*xXM(69+39K) 47 0044 

61 CONTINUE 47 0045 
RETURN 47 0046 


END 47 


0047 





000000 


100 


120 


150 


SUBROUTINE FREGG 48 
COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE REGULA- 48 
TORS OF THE GENERATORS OF THE MG SETS. 48 


COMPUTE THE AVERAGE THREE-PHASE POWERS AND THE PEAK REACTIVE POW- 48 
ERS PER PHASE OF THE GENERATORS OF THE MG SETS» AND THEIR CONTRI- 48 
BUTIONS TO THE BUS LOADS. ALSO» COMPUTE THE FIELD FORCING CURRENTS 48 


AND FIELD VOLTAGES OF THE GENERATORS OF THE MG SETS. 48 
СОММОМ А»8»В0» С» СО» ОГ»ЕС»ЕР»Ғ» 6» СВ» 0»УУ» МН» Х9Х( 9ХМ9 Ү9791>91 61916291063 48 
l»sLPI*»LP2*sLP3S TITLES HEAD 48 
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0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 


DIMENSION А(80+35) +8 (99» 35) +80 (8) 9C (50) 9CD(3+4)+D(120)»EG (50) +EP (548 0009 
10) «Ғ(316)»6(21»35)»06В1(3»4»9)» 0(316) УУ(21»9) М(6%96»99)%9Х| (6910935)»48 0010 
2XM (691099) 9» Ү (316) »7(6»96»35),1 (134)»91 61(50)9162(50)»9163(509)91Р1(50)48 0011 


QJesLP2(50) »LP3(50) S TITLE(39)  HEAD(39) 48 0012 
N1=t (1) +1 48 0013 
N2=N1+«L (2) -1 48 0014 
TO 100--, COMPUTATION OF AVERAGE THREE-PHASE POWERS AND OF PEAK 48 0015 
REACTIVE POWERS PER PHASE. 48 0016 
DO 100 I=N1»N2 48 0017 
4:1 (1950) 8 48 0018 
J?=J+1 48 0019 
J3zJ2*1 48 0020 
K=I &8 0021 
ІҒ(А(69,1).17.0.0) К-К-1 48 0022 
B(31*1)20.,001* (B(74,K) *YCJ) *BCU TS K) *Y (CJ2) *BC7T69K) Y CJ3) ) 48 0023 
B(32»1)21.9245E-4* (B(7B»K0)*Y(J) *B(C799K) *Y(J2) *B(779K) *Y CJ3) ) 48 0024 
B(61»1)=0.0 48 0025 
B(62,1)=0.0 48 0026 
В(61эК)-В(61»К)»В(31931) 48 0027 
B(62+K)=B(629+K)+B(329,1) 48 0028 
CONT INUE 48 0029 
TO 200--, COMPUTE THE DERIVATIVES. 48 0030 
DO 200 I=N1 N2 &8 0031 
J=L (1+50)+8 48 0032 
J2=J+1 48 0033 
J32zJe*1 48 0034 
J82J*7 48 0035 
J9=J8+1 48 0036 
41053941 48 0037 
J11=J10¢1 48 0038 
K=I &8 0039 
TO 120--, COMPUTE THE FIELD FORCING CURRENT AND THE FIELD VOLTAGE. 48 0041 
B(41,1)=2.0* (4 (429+1)+A4(5891))* (B(S+1)*(A(319+1)+A(3291)+1.5*A(33,1) 48 0042 

129(YCJ) *B(49, 1)*Y(J2) *B(53» I2 *Y(J32 B(519» 1)) -CB( 74 ,K) *B(509 12) -B( 75» 48 0063 

eK)*B(565, I) -B(76,K)*R(52.51))/(34.,0*A(589»I) *A(359 I) *R(59»ID) 48 0044 
В (42,1) =А (58,1) % (В (4191) -Ү(Ј*+3) ) +Ү(Ј8) 48 0045 
IF (ABS(B(42+1)).GT.4(59+1)) B(429+1)=SIGN(A(S599 1) 9B(4291)) 48 0046 
F(J19)=(A(569+1)*%* (8(42.1)-А(66.1))-Ү(39))/А(57 1) ФА(6791) 48 0047 
F(J8) 2 (A(559 I) * (A(49.» 1) -Y(CJ10) -F (J9)) -Y CJB) ) /A (55, I) 48 0048 
F(J10)=Y(J11) 48 0049 
TO 180--, THREE-PHASE FULL WAVE RECTIFIER AND REACTIVE LOAD SHARE 48 0050 
CONTROL. 48 0051 
IF (B (610K) -GT-1-0E-10) GO TO 150 48 0052 
В77-АВ5(8(77,К)) 48 0053 
878=ABS (B(789+K)) 48 0054 
B79=ABS (B (799K) ) 48 0055 
GO TO 180 48 0056 
Х 528(31+1)/8(61+К) 48 0057 
B77=ABS(B (779K) *A(S091) #(Y (53) -XLS*B (885K) ) ) 48 0058 
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878=ABS(B(78+K)+A(50+1)* (Y(J)-XLS*B(869K))) 48 0059 
B79=ABS (B(79+K)+A (5091) * (Y (J2)-XLS*B(879K))) 48 0060 
180 8(40,1)-АМАХ1 (В77»В78»В79) 48 0061 
200 F(J11)=(A(51,1)*B(409+1)-A(529+1)*Y(J11)-Y(J310))/A(5391) 48 0062 
RETURN 48 0063 


ENO 48 0064 
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SUBROUTINE FMECH 43 0000 
C COMPUTE THE DERIVAT1VES OF THE MECHANICAL SPEEDS OF THE SHAFTS OF 49 0001 
C THE MG SETS AND OF THE INDUCTION MOTORS, 49 0002 
C ALSO» COMPUTE THE DERIVATIVES OF THE ELECTRICAL ANGLES OF ALL RO- 49 0003 
С TATING MACHIVES OF THE POWER PLANT. 49 0004 
C COMPUTE THE EM TORQUES OF ALL ROTATING MACHINES OF THE POWER PLANT 49 0005 
C EXCEPT THOSE OF THE GENERATING UNITS. 49 0006 
СОММОМ А»В»В0»С»СО»П»ЕС»ЕР»Ғ» 6» GBsQs VVsWo Xs XLes XMo Ys ZeLSLG1»LG2»LG3 49 0007 
] sLP1»LP2SLP3S TITLESHEAD 49 0008 
DIMENSION A(80935) 98(99935) 1,80 (8) +C (50),+CD(3+4)9D(120)+EG (50) +EP (549 0009 
10)»F(316)+6(21+35)+6B(3+49+9)+0(316),VWV(21+9)+.W(6969+9) 9XL (6+10+35)+49 0010 
2XM (691099) s¥ (316) 9Z (696935) 91 (134) 161 (50) 9L62(50) »L63(50)+LP1(50)49 0011 
39LP2(S50) »LP3(50) sTITLE (39) sHEAD (39) 49 0012 
1F(L(3).GT.0) CALL TORIM 49 0013 
NS=L (1) +L (2) +L (3) 49 0014 
DO 37 I=1»+NS 49 0015 
L1=L (1+99) 49 0016 
J=L (1+50) 49 0017 
Јг=Ј•1 49 0018 
)32:32»1 49 0019 
GO T0(35934936) sLI 49 0020 
C ТО 108--, SHAFTS OF MG SETS. 49 0021 
C ТО 105--., COMPUTE THE TORQUES OF THE GENERATORS, 49 0022 
34 J92J*8 49 0023 
J103J*9 49 0024 
41153410 49 0025 
B(33»1)2(A(3^»I)*(Y(J9*3) -CB(35»1)) *A(359 I) *Y(J9*4)) *( 49 0026 
1 yY(J39)*B(5091)+Y(J310)*%B(549+1)+Y(J11)*B(529+1))+4 (3691) *Y(39+5)+ 49 0027 
2(Y(J39):*B(499+1)+Y(J310)*B(5391)+Y(J11)*B(5191)) 49 0028 
1F(A(33,1).LE.0.0) GO TO 105 49 0029 
8(33,1)=B(33,1)-4(33+1)*(B(5691)*(Y(J9)*Y (39) +2.0*Y(J310)*Y(311)) 49 0030 
1+B(589+1)* (Y(J10)*Y(J310)+2.0*Y(J39)*Y(J311))+B(6091)+*(Y(J311)*Y(J311) 49 0031 
2+2.0%Y(39)*Y(J310))) 49 0032 
105 В(33,1) =-0.737564%А (15,1) +В (33,1) 49 0033 
С TO 107--., COMPUTE THE TORQUES OF THE MOTORS. 49 0034 


8B(3+1)=(A(491)* (Y(J+3)-B(791))+A(S+1)*Y(J+4))*(Y(J)*B(2091)+Y(32)* 49 0035 
18(24+1)+Y(33)*+8(2291))+4 (691) *Y(J+5)*(Y(J)*B(1991)+Y(J2)*B(23,1)+Y 49 0036 
2(33) 8В8(21-1)) 49 0037 

ІҒ(А(3,1)) 107»107»106 49 0038 

106 В(3»1) =В (3,1) -А (3.1) + (В(2691) + (Ү(Ј) +Ү(Ј) +2.0%Ү(Ј]Ј3) #Ү(Ј2) ) +В(28,1) + 49 0039 
1(Y(J2)#Y(J2)+*2,0%Y(J)#Y(J3))*B(30+1)#(Y(J3)#*#Y(J3)+2.0=#Y(J)#Y(J2))) 49 0040 


107 B(3»1)20.737564*A(155 1) *B(35,1) 49 0041 
108 F(Je«7)232.174* (BC 391) -B( 33. 1) ) /A (26, I) 49 0042 
F(J9*6) B(55 I) 49 0043 

35 F(J*6) B(55, I) 49 0044 

GO TO 37 49 0045 

C TO 39--, SHAFTS OF INDUCTION MOTORS. 49 0046 
С TO 38--. COMPUTE THE EM TORQUES OF THE INDUCTION MOTORS, 49 0047 
36 B(3»I)ZA(69» I) 8$Y(J*83) 8 (YCJ) *BC209 1) *YCJ2) *BC249 1) *YCJ3) *B(229 ID) *A( 49 0048 
14,1) *Y (194)* (Y (3)*B(1991) +Y(32)*B(2391)+Y(J3)*B8(2191)) 49 0049 

38 B(3,1)=0.737564*A (7,1)*B(3931) 49 0050 

39 F(J*6)232.174* (B(3» 1) -BC 1251) ) /A (95.1) 49 0051 
F(J*5):B(5, I) 49 0052 

37 CONTINUE &9 0053 
RETURN 49 0054 


ЕМО 49 0055 





OOOO 


900 


901 


10 


20 


90 


100 


SUBROUTINE TORIM 50 
COMPUTE THE MECHANICAL TORQUES OF THE INDUCTION MOTORS FROM GIVEN 50 
SPEED/TORQUE TABLES BY LINEAR INTERPOLATION. 50 
THE END VALUES OF TORQUE ARE USED WHEN THE SPEED FALLS OUTSIDE THE 50 
RANGE OF A TABLE» AND A COMMENT IS WRITTEN IN TAPE 6. 50 
СОММОМ А»В»В0» С» СО» О»ЕС»ЕР»Ғ» 6» ОВ9 0»УУ9М»9»Х9Х(» ХМ» Ү9791>916191062,1603 50 
1sLP1 Í LP2 5 LP3 TITLE HEAD 50 
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0000 
0001 
0002 
0003 
0004 
0005 
0006 


DIMENSION А(80%35) .»8 (99, 35) »B0(8) »C(50) »€D(394%) 90 { 120) ,ЕСб(50)›,ЕР (550 0007 
10) «Ғ(316)»6(21»35)»06В(3»4»9) .0 (316) УУ(21»9)»М(6»%96»99)»Х1( (6»10»35)»50 0008 
2ХМ(6+510,9), У (316) +»2 (6+%6+%35) , ( (1394) •01(50) + (602 (50) +» (03(50) » (Р1 (50) 50 0009 


3sLP2 (50) »LP3(50) »sTITLE (39) »HEAD (39) 50 0010 
FORMAT(//35H **9SPEED OF INDUCTION MOTOR NUMBERsI3934H IS LARGER Т 50 0011 
1HAN VALUES IN TABLE###/7H SPEED=9E12-5/15H TORQUE SET TO »Е12.5//) 50 0012 
FORMAT (//35H **9*SPEED OF INDUCTION MOTOR NUMBERsI3935H IS SMALLER 50 0013 
ITHAN VALUES IN TABLE***/7H SPEEDz.E1245/15H TORQUE SET TO >Е12.5// 50 001% 
e) 50 0015 
N1=L (1) +L (2) +1 50 0016 
N2=N1+L (3)-1 50 0017 
DO 100 T=N1+N2 50 0018 
J = L(1+50)+6 50 0019 
IF (Y(J).LT.A(1191)) GO TO 90 50 0020 
NN= A(10+1) -1.0 50 0021 
DO 10 K=1+NN 50 0022 
KK = 11+2*K 50 0023 
IF (Y(J) . LT4A(KK9 I)) GO TO 20 50 0024 
CONTINUE 50 0025 
B(12»I) - A(KK*15I) 50 0026 
N=I+1-N1 50 0027 
WRITE (6+900) N+Y(J)°6B(12 1) 50 0028 
GO TO 100 50 0029 
КК = K#2+9 50 0030 
В(О12,1) - А(КК»ї,.1)-(((А(КК»1,1)-А(КК23,1))/(А(КК,1)-А(КК»2 1)))9. 50 0031 
1 (A(KKs+1)-Y(J))) 50 0032 
GO TO 100 50 0033 
B(12,1) = А(12+1) 50 0034 
N=1+1-N1 50 0035 
WRITE (6+901)N+Y(J)», B(1291) 50 0036 
CONTINUE 50 0037 
RETURN 50 0038 
END 50 0039 








